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1 .0 ABSTRACT: 
THIS DIAGNOSTIC IS DESIGNED TO TEST THE FUNCTIONS 
AND CAPABILITIES OF THE DTO7 UNIBUS SWITCH. THE DIAGNOSTIC 
1S DIVIDED INTO THREE MAJOR SECTIONS AS FOLLOWS: 


MONOPORT; THIS SECTION TESTS A SINGLE PORT WITHOUT INTER- 
ACTION WITH OTHER PORTS. 


MULTIPORT; THIS ix to VESTS THE DTO7 PORT WITH THE OTHER 
PORTS IN THE SYSTEM. 


MANUAL INTERVENTION; hase SECTION TESTS CERTAIN FUNCTIONS 


ICH REQUIRE OPERATOR ASSISTANCE. 
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2 .0 REQUIREMENTS: 
- EQUIPMENT 
PDP 11-COMPUTER 
ASR-33 TELETYPE OR EQUIVALENT 
D107 PORT MOD 


MANUAL CONTROL PANEL (OPTIONAL BUT NEEDED FOR MANUAL INTERVENTION TEST!) 


2 wt PROGRAM STORAGE 
PROGRAM REQUIRES 8 K WORDS OF MEMORY 


2.2 SOF TWARE 
ABSOLUTE LOADER OR OTHER INPUT MEDIUM 
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3 .0 SWITCH REGISTER ASSIGNMENTS: 
$w08(1)=LOOP ON TEST IN SWR<7:0> 
$w08(0)=DO ALL TESTS IN SEQUENCE 


$W09(1)=LOOP ON ERROR 
$W09(0)=CONTINUE ON ERROR 


$W10(1)=BELL ON ERROR 
$W10(0)=NO BELL ON ERROR 


SW11(1)=INHIBIT ITERATIONS 
SW11(0)=ALLOW ITERATIONS 


$W13(1)=INHIBIT ERROR TYPEOUTS 
$W13(0)=ALLOW ERROR TYPEOUTS 


$W14(1)=LOOP ON TEST 
$W14(0)=DON'T LOOP ON TEST 


SW15(1)=HALT ON ERROR 
$W15(0)=CONTINUE ON ERROR 


COMPUTERS WITHOUT A HARDWARE SWITCH REGISTER HAVE A 
SOFTWARE SWITCH REGISTER LOCATED IN MEMORY AT LOCATION 


176 CALLED SWREG. THIS LOCATION CAN BE CHANGED EITHER 
MANUALLY OR BY TYPING THE CNTL*G KEYES TOGETHER 
THEN RESPONDING TO THE TERMINAL DIALOGUE. 
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4 .0 LOADING PROCEDURE : 


THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
SHOULD BE USED. 

IF THE PROGRAM RESIDES ON A MASS STORAGE DEVICE SUCH AS 
MAGTAPE OR DISK REFER TO THE XXDP USER'S GUIDE. 
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5 .0 STARTING PROCEDURE : 


> ot STARTING ADDRESSES 
200. INITIALIZES PROGRAM AND RUNS MONOPORT SECTION® 


204. INITIALIZES PROGRAM AND RUNS MULTIPORT SECTIONe® 


210. INPUTS PARAMETERS AND ALLOWS TEST SELECTION 


214. INITIALIZES PROGRAM AND RUNS MANUAL INTERVENTION SECTION 


* DEFAULT PARAMETERS WILL BE A ey UNLESS AND UNTIL ACTUAL PARAMETERS 
ARE INSERTED VIA ADDRESS 210 OR BY RUNNING THE MULTIPORT TEST. 

** JF ACTUAL PARAMETERS HAVE — oor INSERTED AT LEAST ONCE THE 
PROGRAM WILL JUMP TO THE PARAMETER INPUT ROUTINE FIRST; THEN 
YOU MAY SELECT THE MULTIPORT SECTION. 


STARTING SEQUENCES 


STARTING SEQUENCE UNDER XXDP(CHAIN),APT OR ACT 
START AT ADDRESS 200 ONLY. (DEFAULT PARAMETERS) 
NORMAL STARTING SEQUENCE 
LOAD PROGRAM ACCORDING TO LOADING PROCEDURE 
LOAD AND START ADDRESS 210 
INPUT ACTUAL PARAMETERS AND SELECT TEST 
RESTART ADDRESSES 


RESTART ADDRESSES ARE THE SAME AS STARTING ADDRESSES 
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6 .0 PRELIMINARY OPERATIONS: 


6.1 DEVICE ADDRESSES AND VECTOR ADDRESSES 
THE STANDARD DEVICE ADDRESS IS 177420. 
THE STANDARD DEVICE VECTOR ADDRESS IS 350. 
THE STANDARD DEVICE PRIORITY LEVEL IS 7. 
DEVICE/OPTION SETUP 
INSURE THAT THE DT07(S) ARE IN PROGRAMMABLE MODE. 
PRELIMINARY PROGRAMS NEEDED 


NONE 
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7 .0 OPERATIONAL PROCEDURES: 


NORMAL OPERATION WOULD BE TO LOAD THIS PROGRAM, 
yy THAT ~-™ DTO7 PORTS ARE IN THE PROGRAMMABLE MODE, 
UN THE TEST ON EACH PORT IN THE SYSTEM, THEN 

RUN THE RULT IPORT TEST ON ALL PORTS IN THE SY 
IF YOU HAVE A MANUAL CONTROL PANEL, RUN THE MANUAL INTER- 


VENTION TEST. 
THE PARAMETER INPUT ROUTINE IS TO BE USED WHEN- 
EVER YOU WISH TO INPUT OR CHANGE DIAGNOSTIC PARAMETERS 
INCLUDING DEVICE ADDRESS VECTOR ADDRESS, INTERRUPT LEVEL, 
NUMBER AND 1.D.8S OF OTHER PORTS TO BE TESTED. 
THE PARAMETER INPUT ROUTINE WILL BE ENTERED AUTOMATICALY 
a en TEST IF WO PARAMETERS HAVE BEEN ENTERED 
WHEN USING THE MULTIPORT SECTION, AFTER PARAMETERS 
HAVE BEEN ENTERED OR WHEN RESTARTING THE TEST, THE CPU 
WITH THE LOWEST NUMBERED D107 PORT MUST BE STARTED LAST. 





eMAIN. MACY11 30A(1052) 29-JAN-79 13:38 PAGE 9 
CROTAA.P11 29-JAN-79 13:32 


8.0 ERRORS: 
MONOPORT SECTION ERRORS 


ALL ERRORS IN THE MONOPORT SECTION HAVE THE GENERAL FORMAT; 
ERROR PC,TEST#,GOOD DATA,BAD DATA,BAD DATA ADDRESS. 
OF ERROR PRINTOUT AND LOOPING IS 6Y THE SWITCH REGISTER OPTIONS. 


MULTIPORT SECTION ERRORS 


ERRORS IN THE MULTIPORT SECTION PRINT AN ERROR 10.8, A MESSAGE 
BRIEFLY DESCRIBING THE ERROR AND THE CSR CONTENTS. ALL ERRORS 

IN THIS SECTION ARE FATAL AND, THEREFORE, THE TEST MUST BE RESTARTED 
ON ERROR. THERE 1S NO ERROR LOOPING AND ERROR te ge! I$ AUTO- 
MATIC. ERROR ID.#S 1A THRU SA IDENTIFY ERRORS IN THE D107 MODE 
MULTIPORT TEST AND ERROR I1D.#S 6 THRU 16 IDENTIFY ERRORS IN THE 
D103 MODE MULTIPORT TEST 


MANUAL INTERVENTION SECTION ERRORS 


ERRORS * THIS SECTION PRINT AN ERROR 10.#, A BRIEF MESSAGE DES- 
CRIBING THE ERROR, AND THE CS HERE IS 


NO ERROR LOOPING AND ER PR EVER, 
PRESSING CONTINUE, AFTER ERROR, WILL CAUSE THE FAILING SUBTEST TO 
REPEAT EXECUTION. 


MISCELLANEOUS ERRORS 


THERE ARE TWO SUBROUTINES USED TO DETERMINE DEVICE MODE AND DEVICE 
TIMING. ERRORS IN THESE ROUTINES ARE SELF-EXPLANATORY AND ARE 
FATAL. THESE ERRORS USUALLY OCCUR BECAUSE ONE OF THE PORTS 

WAS LEFT IN THE MANUAL MODE. 
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TEST DESCRIPTIONS: 


MONOPORT TESTS 


TESTI. 


TESTO. 


TEST1I0. 


TESTI1. 


TESTI2. 


TEST POST-RESET BIT PATTERN IN CSR. 


THIS TEST CHECKS THE CONTROL STATUS REGISTER CONTENTS 
Ae TO INSURE THAT ANY RESET-CLEARABLE BITS ARE 


TEST READ/WRITE BITS IN CSR. 
THIS TEST CHECKS THAT BITS 0 AND 6 CAN BE SET AND CLEARED 
IN THE CSR. 


TEST BYTE ACCESS IN CSR. 
THIS TEST CHECKS THE BYTE ACCESS CAPABILITY OF THE CSR. 
CONNECT TEST WITHOUT INTERUPT ENABLE. 


THIS TEST VERIFIES THE PROPER OPERATION OF THE CONNECT 
PROCESS WITH INTERUPTS DISABLED. 


RELEASE TEST WITHOUT INTERUPT ENABLE. 


THIS TEST VERIFIES THE PROPER OPERATION OF THE RELEASE 
PROCESS WITH INTERUPTS DISABLED. 


CONNECT FAILURE TEST WITHOUT INTERUPT ENABLE. 

THIS TEST CHECKS THE PROPER OPERATION OF THE DEVICE 

WHEN THE CONNECTION PROCESS CANNOT CONNECT TO THE SHARED 

BUS WITHOUT INTERUPTS ENABLED. 

RELEASE TEST WITHOUT BUS MASTERSHIP OR INTERUPT ENABLE. 

THIS TEST CHECKS THAT THE DEVICE WILL RELEASE THE SHARED 

BUS WHEN UNIBUS MASTERSHIP CANNOT BE OBTAINED AND 

INTERUPTS ARE DISABLED. 

CONNECT TEST 

THIS TEST VERIFIES THE CONNECT PROCESS UNDER INTERUPT CONTROL. 
RELEASE TEST 

THIS TEST VERIFIES THE RELEASE PROCESS UNDER iNTERUPT CONTROL. 
CONNECT FAILURE TEST 


THIS TEST VERIFIES THE PROPER OPERATION OF THE CONNECT 
PROCESS,UNDER INTERUPT CONTROL WHEN THE DEVICE CANNOT 


SEQ 0010 
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OBTAIN BUS MASTERSHIP. 
TEST13. RELEASE TEST WITHOUT BUS MASTERSHIP 
THIS TEST VERIFIES THE THE PROPER OPERATION OF THE RELEASE 
PROCESS, UNDER INTERUPT CONTROL, WHEN THE DEVICE CANNOT 
OBTAIN BUS MASTERSHIP. 
TEST14. RESET (RST) TEST 
THIS TEST CHECKS THE OPERATION OF THE DEVICE RESET BIT 
(RST) IF AN EXTERNAL DEVICE REGISTER HAS BEEN INSERTED 
IN THE PARAMETER BLOCK. 
RESET HOLD (HLD) TEST 


THIS TEST CHECKS THAT THE HLD BIT WILL HOLD THE SHARED 
BUS DURING AND AFTER A BUS RESET. 


TEST16. HI-SPEED SWITCHING TEST 


THIS TEST CAUSES THE DEVICE TO CONNECT AND DISCONNECT 
AT HIGH SPEED 1000 TIMES WHILE CHECKING FOR ERRORS. 


TESTI7. RESET-IN-NEUTRAL TEST 


THIS TEST CHECKS FOR RESET~IN-NEUTRAL IF AN EXTERNAL 
DEVICE REGISTER 1S PRESENT AND PRINTS OUT THE RESULT ON 


THE FIRST PASS. 
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9.2 MULTIPORT TEST 


MULTIPORT TEST IS ACTUALLY TWO SEPARATE TESTS: ONE FOR 
Te 0107" In 9103 RODE AND ONE 7 IN D107 MODE. IN 


ER FUNCTIONS 
WG: FUNCTION] (MASTER) DETECT SELECTED 
(MASTER) DETECT SELECTED 
(SLAVE) SEND REQUEST AND 
ON, (SLAVE) SEND REQUEST AND EXPECT CONNECTION, 
AND f ONS (SLAVE) OBSERVE REQUEST ee IN D103 MODE 
BOTH ye HAVE A TURN AS MASTER THEN AS SLAVE HERE ARE TWwO 
MASTER FUNC Ss - THESE BE RECEIVE 
REQUEST AND RELEASE THE SHARED BU é AND EX 
wad ee oeet it 3. hens REQUEST AND EXPECT CONNECTION, AND 4. DETECT REQUEST 


MANUAL INTERVENTION TEST 


THE MANUAL they elas TEST VERIFIES THE PROPER OPERATION 
OF CERTAIN DEVICE FEATURES THAT REQUIRE MANUAL ASSISTANCE TO TEST. 
THIS TEST ALSO REQUIRES THE OPTIONAL MANUAL CONTROL PANEL FOR 
PROPER OPERATION. THE FEATURES TESTED ARE: MANUAL MODE, 
PORT POWER OK AND SWITCHED BUS POWER FAIL. 
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381 * 167400 $SUR=167400 
382 000001 SIN=1 
384 -SBTTL BASIC DEFINITIONS 
(1) StINITIAL ADDRESS OF THE STACK POINTER eee 1100 eee 
(1) 001100 STACK= 1100 
(1) -EQUIV EMT, ERROR S:BASIC DEFINITION OF ERROR CALL 
(1) -EQUIV 10T, SCOPE [:BASIC DEFINITION OF SCOPE CALL 
a) i sRISCELLANEOUS DEF INI TIONS 
(1) 000011 11 3:CODE FOR HORIZONTAL TAB 
(1) 000012 y™ 12 [:CODE FOR LINE FEED 
a) 000015 CR= 15 3:CODE FOR CARRIAGE RETURN 
(1) 000200 CRLF= 200 [:CODE FOR CARRIAGE RETURN-LINE FEED 
(1) 177776 PS= 177776 S:PROCESSOR STATUS WORD 
(1) -EQUIV PS,PSW 
(1) 177774 STKLAT= 177776 z3STACK LIMIT REGISTER 
(1) 177772 PIRQ= 177772 [PROGRAM INTERRUPT REQUEST REGISTER 
(1) 177570 DSWR= 177570 :; MARDUARE SWITCH REGISTER 
oe 177570 DDISP= 177570 DWARE DISPLAY REGISTER 
(1) S*GENERAL PURPOSE REGISTER DEFINITIONS 
(1) 000000 RO= 20 S:GENERAL REGISTER 
(1) 000001 Riz %1 S:GENERAL REGISTER 
(1) 000002 R2= %2 S:GENERAL REGISTER 
(1) 000003 R3= 23 S:GENERAL REGISTER 
(1) 000004 Ro= 4 S:GENERAL REGISTER 
1) 000005 RS= 25 S:GENERAL REGISTER 
(1) 000006 RO= 6 S:GENERAL REGISTER 
1) 000007 R7= 47 >:GENERAL REGISTER 
a) 000006 SP=R6 S:STACK POINTER 
) 000007 PC=R7 ::PROGRAM COUNTER 
(1) , s*PRIORITY LEVEL DEFINITIONS 
(1) 000000 PROz 0) s;PRIORITY LEVEL 0 
(1) 000040 PRIz S:PRIORITY LEVEL 1 
(1) 000100 PR2= 100 ::PRIORITY LEVEL 2 
(1) 000140 PR3= 140 s:PRIORITY LEVEL 3 
(1) 000200 PR4= 200 S:PRIORITY LEVEL 4 
(1) 000240 PR5S= 240 ;3PRIORITY LEVEL § 
(1) 000300 PR6= 300 PRIORITY LEVEL 6 
(1) 000340 PR7= 340 SEPRIORITY LEVEL ? 
( 
(1) s*"SWUITCH REGISTER’ SWITCH DEFINITIONS 
WD) 100000 Swi5= 100000 
(1) 040000 SW14= 40000 
(1 020000 Swi3= 200 
(1) 010000 Swi2= 10000 
(1) 004000 Si l= 00 
(1) 002000 Swi0= 2000 
(1) 001000 sw09= 1000 
(1) 000400 Su0B= 4 
) 000200 sw07= 200 





ae 
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(1) 000100 $w06= 100 
(1) 000040 swos= 40 
(1) 000020 Sswo4= 20 
(1) 000010 swos= 10 
(1) 000004 @= & 
(1) 000002 Swoi= 2 
(1) 000001 swoo= 1 
(1) -EQUIV $w09.SW9 
(1) -EQUIV Sw08,Swu8 
(1) -EQUIV $wW07,SU7 
(1) EQUIV SW06,SW6 
(1) EQUIV S$w0S,Su5S 
(1) EQUIV SW04,SU4 
(1) EQUIV $w03,Su5 
(1) EQUIV $w02,SwW2 
(1) -EQUIV S$wW01,SwW! 
? EQUIV $w00,Sw0 
(1) z#DATA BIT DEFINITIONS (B1T00 TO B1T15) 
(1) 100000 8] 1 
(1) 040000 BITIé= 40000 
(1) 020000 B1T13= 
(1) 010000 BITI2= 10000 
(1) 004000 BIT11= 4000 
(1) 2000 B1T10= 2000 
(1) 001000 B1T09= 1000 
(1) B1T08= 400 
q1) B1T07= 200 
(1) 000100 B1T06= 100 
(1) B1T05= 40 
(1) 000020 B1T04= 20 
(1) 000010 B1T03= 10 
(1) 000004 BITO02= 4 
(1) 000002 BITOl= 2 
(1) 000001 B1T00= 1 
(1) -EQUIV B1T09,BI1T9 
(1) EQUIV 81T08,B1T8 
(1) EQUIV B1107,B1T7 
(1) -EQUIV B1106,B1T6 
(1) -EQUIV B1T05,B1T5S 
(1) -EQUIV BIT04,B1T4 
(1) EQUIV B1T03,B1T3 
(1) EQUIV B1102,B1T2 
(1) -EQUIV B1T01,B1T1 
i -EQUIV 61T00,B81T0 
(1) 7 *BASIC — TRAP VECTOR ADDRESSES 
(1) 000004 ERRVEC= 4 TIME OUT AND OTHER ERRORS 
(1) 000010 RESVEC= 10 : 3RESERVED AND ILLEGAL INSTRUCTIONS 
(1) 000014 TBITVEC=14 4 8 
(1) 000014 TRIVEC= 14 TRACE T 
(1) 000014 BPTVEC= 14 : BREAKPOINT TRAP (BPT) 
(1) 000020 1OTVEC= 20 3: INPUT/OUTPUT TRAP (101) **SCOPEre 
(1) 000024 PWRVEC= 24 [:POWER FAIL 
(1) 000030 EMTVEC= 30 i SEMULATOR TRAP (EMT) **ERRORe® 
(1) 000034 TRAPVEC=34 7:""TRAP’’ TRAP 
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(1) TKVEC= 60 s3TTY KEYBOARD VECTOR 
(1) 000064 TPVEC= 64 esTty PRINTER VECTOR 
(1) 000240 PIRQVEC=240 ;PROGRAR_INTERRUPT REQUEST VECTOR 


385 ABASE=177420 BASE D107 BUS ADDRESS EQUATE 
386 1603 AU bees ae sBASE DTO7 PRIORITY & VECTOR ADDRESS EQUATE 


SBDADR 
-SBTTL MEMORY MANAGEMENT DEFINITIONS 
s*KT11 VECTOR ADDRESS 
MAVEC= 250 
s*KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 
SR1= 177574 
SR2= 177576 
SR3= 172516 


s*KERNEL "1" PAGE DESCRIPTOR REGISTERS 


a 
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KIPAR7= 
-SBTTL TRAP CATCHER 


20 
oath UNUSED Peeniens OF THE VECTOR AREA CONTAIN 
' ang: 0 oe ean at PROCESS ILLEGAL 


K ILLEGAL_TRAP/INT 
LA OPE ROUTINE WHICH (IF THE RETURN PC IS 
2) wt TO THE SERROR ROUT 
OR ROUTINE WILL REPORT THE ep AS FOLLOWS: 
SCOTT YYTY UNEXPECTED TRAP TO X 
$ eAND RETURN TO THE PROGRAM AT PCEYYYYYY#2 
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 SWHERE MXX=LOCATION OF ILLEGAL TRAP 
YYVYYYY=PC AT TIME OF TRAP 
S eNOTE : IF THE PROCESSOR 1S NOT AN 11/05 THE PROGR 
: CAN BE STARTED AT ADDRESS 0 AS WELL AS ADDRESS 200. 


S40CAT: HALT 33 HALT 
BR --100 a Wy TO 177700 & TIME OUT (NOT ON 


ROUT! TIVECTOR TO STARTING ADDRESS 
340 S:WITH PRIORITY LEVEL 7 


DISPREG: .WOR 0 3 SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 3 ;SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRES(ES) 
JMP @#ROUTI ;;GO TO START OF PROGRAM 
:GO TO MULTIPORT TEST 
GO INPUT PARAMETERS 
:G0 SET UP FOR MANUAL INTERVENTION TEST 


PEPE PPR PRP PP Pn Pn PP Pe 
Dh oe et ee a et ot td eh ot ee 
Www we www wwewewewwww 


3 


39% 
395 
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-SBTTL ACTI1 HOOKS 


pteeeerecceererererereeerereeeeeeerrererererererereeereeeneerere 
‘HOOKS REQUIRED BY ACT11 
$s sSAVE PC 
33 1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
Sgt Loc. rt TO ZERO 
ESTORE P 


=S 
~ 


pO ene te eee | 
Owwwwwwwuwww 


-=1 
-SBTTL APT PARAMETER BLOCK 


steerer eeerrerereeererererereeeereterekaeeeaeeeeeeeeeeeneeeReaee 


Se LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
PITS eit ici iii iii itititiiiigii i iii iti iii ii iii ii iiiiiiigy 
3;SAVE CURRENT LOCATION 
3;SET POWER FAIL TO POINT TO START OF PROGRAM 
::FOR APT START UP 
::POINT TO APT INDIRECT ADDRESS PNTR. 
::POINT TO APT HEADER BLOCK 
3;RESET LOCATION COUNTER 
peeeerereereeeeererereeereerereereerreeeeeeereerereeeeereeeeres 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
s INTERFACE SPEC. 


SAPTHD: 

SHIBTS: RD 0 +3 TWO HIGH BITS OF 18 BIT anh ADDR. 

SMBADR: [ $MAIL ADDRESS OF APT MAILBOX (BITS 0-15) 

STSTA: 15. RUN TIM OF LONGEST TEST. 

SPASTM: 60. + 3RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITA: 0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
SETEND-SMAIL/2 3 ;LENGTH MAILBOX~-E TABLE (WORDS) 
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( 
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-SBTTL COMMON TAGS 


Se 
>> 


C 


8 


sereerererererererererrererrererrereeeereeeereeererekeeeeeeeeeee 


eTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
s*USED IN THE PROGRAM. 


:3START OF COMMON TAGS 


:sCONTAINS THE a NUMBER 
:;CONTAINS ERROR FLAG 

3:CONTAINS SUBTEST ITERATION COUNT 
:;CONTAINS SCOPE LOOP ADDRESS 

2 CONTAINS SCOPE RETURN FOR ERRORS 


sgggggggagaeas 


::CONTAINS “BAD* DATA 
2 ;RESERVED--NOT TO BE USED 


3 AUTOMATIC MODE INDICATOR 
:: INTERRUPT MODE INDICATOR 


2 ADDRESS OF SWITCH REGISTER 

2ADDRESS OF DISPLAY REGISTER 

2:TTY KBD STATUS 

:;TTY KBD BUFFER 

zsTTY PRINTER STATUS REG. ADDRESS 

7: TTY PRINTER BUFFER REG. ADDRESS 

3 CONTAINS NULL CHARACTER FOR FILLS 
sCONTAINS # OF fe CHARACTERS sao 

3 INSERT he CHARS. AFTER A “LINE FEED" 
;“TERMINAL AVAI CABLE" FLAG (B11<07>=0=YES) 

; USER DEFINED 


NSS ENSEAENSSRNSSARNOSRANSS 
oooooooooo—-oocoeoooo 


GEAENS 


RORNOSRNOS 
Soooooo—-No 


INED 
NUMBER OF ITERATIONS 
ifsc CAPE ON ERROR ADDRESS 
yearn : CODE FOR ori 


UVESTION MA 

<i5> i: CARRIAGE RETURN 
<12> ::LINE FEED 

Tete tei iti itti iii iii ii iiiiiiiiiy) 


*SBTTL APT MAILBOX~-E TABLE 


si eeeereererereerrerererreerteeeteeteekeReeeeeeeeeeeeeeeeeneeeee 


-EVEN 

dL: ;:APT MAILBOX 
SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 


oonNnnNN SS 
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) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
} 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


1 
2 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
| 
1 
1 
1 
1 
3 
3 
3 
3 
3 
1 
1 
1 
1 
1 
1 
2 
2 
2 
3 
2 
2 
2 
2 
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STESTN: ATESTN 
SPASS: APASS 


ob et 


esegssessess | 
PRSRESSENSES 
elles aaa 


1706201. 11705202, 11/20=03,11/40=04,11/45=05 
iW ? -PDa=0 ,Q= 
BIT 10=REAL TIME CLO 
BIT 9=FLOATING POINT. — 
BIT 8=RMERORY MANAGEMENT 
AMARS1 3 HIGH emia” BYTE 


AMTYP1 ine -BLKAI 
REM. TYPE 8 =~ (HIGH BYTE) 
900 NSEC CORE= 


33 


3: HIGH ADDRESS ,BLK#1 
MEM.LAST ADOR.=3 BYTES.THIS WORD AND LOW OF ‘‘TYPE'’ ABOVE 
3:HIGH ADDRESS.A.S. BYTE 
7 PER. TYPE BLK 
3 es LAST Se ww ay 
GH ADDRESS Se A.S.BYTE 


YPE ,BLK 
: MER ay ADDRESS ,BLK#3 
GH ADDRESS .M.S.BYTE 


- TYPE BLK 
i3RER. LAST ADDRESS ,BLK# 
NTERRUPT VECTORA1 “BUS PRIORITY#1 
INTERRUPT VECTOR#2BUS PRIORI TY#2 
sseee = OF EQUIPMENT UNDER TEST 
:; CONTROLLER DESCRIPTION WORDS! 
: ;CONTROLLER eiteh uaaee genees 


Ww 
Lan 


000000 
000 
000 

000000 
000 
000 

000000 
000 
000 

000000 


3 


MMMMNMNNNNPTer 
ENSSERSSF 


ssssssssssssssssssssssss 
SSSsy 


(at Ll A Ct Ld Lt Lt 


NNN —— 
SHeMVOS FNS 


: .WOR 33 
$DDW14: .WO ADDW14 DEVICE DESCRIPTOR WORD#14 
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3 001330 000000 SDDWI5: .WORD ADDWIS ;;DEVICE DESCRIPTOR WORD#15 


(2) 
(2) 001332 SETEND: 


(2) 
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-SBTTL ERROR POINTER TABLE 


s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
S®THE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER 

+ *LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE hg «= & ° PERTINENT. 

> *NOTE1: 1f SITEMB 1S 0 THE ONLY PERTINENT DATA IS (SERR 

3 *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


::POINTS TO THE ERROR MESSAGE 
::POINTS TO THE DATA HEADER 
:;POINTS TO THE DATA 

:;POINTS TO THE DATA FORMAT 


PEPPER PR PRP PAP PP POP hme 
wwewwew we wee we wea ww we 


sPOST-RESET CONDITIONS NOT ner IN CSR 
sREAD/WRITE BIT FAILURE IN CSR 

:BYTE ACCESS FAILURE IN CSR 

sERROR IN CONNECT PROCESS 


: INTERUPT DETECTED WITH INTERUPT ENABLE CLEARED 


0 
; ERROR#6 
EM6 


;COULD NOT CONNECT 
dT1 
0 

;ERRORA7 
EM7 


DH1 
dT1 


0 
sERROR#10 
EM10 


DH1 
d11 


pid 
sERROR#11 


sERROR IN RELEASE PROCESS 


NO INTERUPT DETECTED 





-MAIN. MACY11 30A(1052) 
CROTAA.P11 29-JAN-79 

442 001432 032066 
445 001434 052721 
644 1436 033176 
ar 001440 000000 
447 001442 032122 
448 001444 032721 
S69 1446 033176 
ry 001450 

452 001452 032155 
455 001454 032721 
454 001456 033176 
rs 1460 000000 
457 001462 032217 
458 001464 032721 
459 001466 033176 
oat 001470 000000 
462 001472 032276 
465 001474 052721 
464 001476 033176 
ra 1 000000 
467 001502 032332 
468 001504 032721 
469 001506 033176 
oy 001510 

472 001512 032353 
473 001514 032764 
474 001516 033212 
ris 001520 000000 
477 001522 032420 
478 001526 052721 
479 001526 033176 
rr 001530 

482 001532 032467 
4835 001534 03505 
484 001536 033226 
rr + 001540 

487 001542 032520 
488 001544 033116 
489 001546 033212 
~ 001550 000000 


29-JAN-79 13:38 PAGE 12-9 
13:32 ERROR POINTER TABLE 


sERROR#12 
EMI2 


DH1 
dT1 


0 
sERROR#13 
EM13 


DH1 
O11 


0 
sERROR#14 
EM14 


DHI 
oT1 


0 
sERROR#15 
EMIS 


DH 
dT1 


0 
7 ERROR#16 
EM16 


DH 
dT1 


0 
sERROR#17 
—EM17 


DH2 
dT2 


0 
7 ERROR#20 
EM20 


DH1 
oT1 


0 
sERROR#21 
EM21 


DHS 
dT3 


0 
sERROR#22 
EM22 


DH4 
DT2 
0 


; INTERUPT Ai WRONG PRIORITY 


CONNECT CONDITION FAILURE 


sERROR IN CONNECT FAILURE PROCESS 


ERROR IN RELEASE TEST W/O BUSS MASTERSHIP 


sRELEASE CONDITIONS NOT MET 


THO BIT NOT SET 


COULDN'T READ/WRITE EXTERNAL DEVICE 


sRESET HOLD (HLD) DIDN'T DISABLE RESET 


sRESET (RST) DIDN'T WORK 


sRESET-IN-NEUTRAL OPERATION HAS CHANGED 


eMAIN. MACY11 30A(1052) 29-JAN-79 13:38 PAGE 12-10 

CROTAA.P11 29-JAN-79 13:32 ERROR POINTER TABLE 

D107 BUS REGISTER ADDRESS POINTERS 

177420 sCOMMAND/STATUS REGISTER 
D107 VECTOR ADDRESS POINTERS 


328 NORMAL INTERRUPT VECTOR 


D107 DEVICE LEVEL 

340 

COMMAND STATUS REGISTER BIT ASSIGNMENTS 

COMMON PROGRAM LOCATION(S) 

TSTNUM: 0 CONTAINS TEST NUMBER ON ERROR 


MITITITITIIITILILII TLL Tittle LL 


PROGRAM PARAMETER BLOCK 
6103: 0000 


177420 


wn 
7 


000350 
000352 


mm 


aon 
ro 


000340 


Www 
_— Se Se Se Ge “Wee Se te Ete Se Se HG s Be ee 


:D103/D107 MODE INDIACATER,0=D107 
sEXTERNAL DEVICE REGISTER ADDRESS 
ap ee BITS IN ABOVE 

K OF RESET CLEARABLE BITS IN ABOVE 
THis PORT’S ID# 

sEXTERNAL PORT ID (-1=NO PORT) 


STABLE TERMINATOR 
:# OF EXTERNAL PORTS 
; SEQUENCER 


ppp bn 
Soase 
CrNS 


VEVRESLS 
geseceess 
ad ad 
OFrNOSO ~ 


SEQUENCER POINTER 
sNEXT ENTRY POINTER 
ENU STORAGE 


3; MENU A 

sMENU TERMINATOR 

;CURRANT FUNCTION 

sCURRANT SLAVE ID 
PASS COUNT 


3; SUBPASS 

;CONVERTED SLAVE ID 
TEMPORARY STORAGE 
;MASTER/SLAVE INDIACATOR 


petites 
ooo Oo 
SEER 
Y=ZE35 


a 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


Besene 
eRe 


“i 
o 


sRESET@IN-NEUTRAL CONDITION FLAG 
;TEST RESET IN NEUTRAL FLAG 


ee ce ee ed cd ce ee ced ce ce ce ce cae ee ee ee ed ee ed ed ed ee ed ed ed ed et 
o 
ad 
~ 


ANNO 
~ 


SEFEREE 
$ 
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st -SBTTL PROGRAM START 
-SBTTL im wt THE COMMON TAGS 
+3CLEAR THE COMMON TAGS (SCATAG) AREA 
OV $ Srey LOCATION TO BE CLEARED 
;;CLEAR MEMORY LOCATION 


3;LOOP BACK IF NO 
23SETUP THE STACK POINTER 


Ore -BFLOTvEC s3101 VECTOR FOR SCOPE ROUTINE 
nIVEC jEMt VECTOR FOR ERROR ROUTINE 
ooreks QSTRAPVEC : ; TRAP VECTOR FOR TRAP CALLS 
#340 p SeTRAPYEC LEVEL 
QsPURVEC ::Powen FAILURE VECTOR 
#340 ashunvece? :; VEL 7 . 


EWOeT SE 


Ss i 


MOV as 
sr INITIALIZE A ree sWecfons 
MOV assc 


ee cee ed oe ee we cd ed et 


oooooooo 
Sooo 


END-OF -PROGRAM COUNTER 
INITIALIZE NUMBER OF ITERATIONS 
3 CLEAR THE ESCAPE ON ERROR ADDRESS 
2s ALLOW ONE ERROR PER T 
3s INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV e SLPERR sSETUP THE ERROR LOOP ADDRESS 
s3SIZE FOR A HARDWARE SWITCH necister. IF WOT FOUND OR IT IS 
;;EQUAL TO A “=1"", SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV ase ERROR VECTOR 


RRVEC (SP) 5 + 
Q#ERRVEC a A ERROR VECTOR 
GDSUR, SUR 3: SETUP FOR A HARDWARE SWICH REGISTER 
SDDISP DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
#-1 ,OSuR 33TRY TO REFERENCE HARDWARE SUR 
3 BRANCH IF WO TIMEOUT TRAP OCCURRED 
THE HARDWARE SUR IS NOT 


33AND THE =] 
65$ 3:BRANCH IF NO TIMEOUT 
065%, (SP) 3:SET UP FOR TRAP RETURN 


#SWREG, SUR ::POINT TO SOFTWARE SUR 

#D1SPREG, DISPLAY 

(SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR 

SPASS em PASS COUNT 

#APTSIZE ,SENVA is TEST USER SIZE ss APT 

7$ YES,USE NON-APT SWITCH 

#SSUREG , SUR :NO,USE APT SWITCH REGISTER 
025772 UP: : ch SS sPOINT TO TRAP ROUTINE 
001256 SVECT1,RO :GET PRIORITY LEVEL 

N LEFT HALF 


3PU 
177400 #177400 ,R0 CLEAR UNWANTED BITS 
001560 RO,PRI ;SAVE DEWICE LEVEL 


se=s 

to 

VV 

~~~ 

WAL Ue i Ld 
SNS 


Sonn 
WPS Hoh os et S 
Nnnns 


oocSeo 
et eat ot 7 
~ 
enNOo~ 
WUno— 
aw 


= RIMINI NNN NNN NID DID 8 et et ot ot ot ot ot ot ot ot 
Moron 


it i i i i i hh hhh hh ah ae a a eh hh Rh ee 


~~ 
Nes Led 


5 
( 
a 
€ 
( 
( 
( 
( 
4 
( 
( 
( 
( 
( 
( 
( 
‘ 
iN 
( 
4 
( 
( 
€ 
( 
es 
( 
( 
( 
( 
( 
t 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


Tmrmr 
So 
—~ we 
we ws 
nN SUNN ONT 


an 
im 
ww 
So So 
—-_ = 

™m wT 


wa 
— 


Pw 
Iw 
LR 
ae 
ss 


ees 
Sx 
ase 


NOW SETUP BUS ADDRESS VALUES 
001262 SeTuP2: MOV _—s- SBASE.. CSR ;STORE BUS ADDRESS 


PPPPARAA 


yw 
2S 
So 
— 
ve 
™“ 
se 
“ 
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NOW SETUP VECTOR ADDRESSES 


#VECO,RO sSETUP VECTOR POINTER 
SvECTI RI [GET BASE VECTOR ADDR 
#-400,81 :CL LEAR UNWANTED BITS 
R1, (RO)¢ ADDRS 

PINCR.TO NEXT LOC. 
BVECZ2RO [DONE ALL LOCATIONS? 


2BR, IF 
aa4 3 TEST CHAIN en XXDP 


BNE 1$ 3BR,1F CHAIN MOD 
-SBTTL TYPE PROGRAM NAME 
33 TYPE — ) Frans PROGRAM + staat r+ # 


i 

4 Ha Nt Nd 
SESERERSE 
ssseseree 
Suesessy 
SuNsseses 


™ 
mR 
~ 


177777 
BNE 64% 
021220 CAP BSENDAD 8842 
BEQ et ;sBRANCH IF YES 
002336 TYPE sTYPE ASCIZ STRING 
. GET F vaue” FOR SOF TWARE sbi ten REGISTER 
000042 TST as42 ;sARE WE RUNNING UNDER XXDP/ACT? 
BNE $68 3 3BRANCH If YES 
SENV,#1 ;;ARE WE RUNNING UNDER APT? 
33BRANCH IF YES 
SWR ,#@SWREG ¢ SOF TWARE SWITCH REG SELECTED? 
67% CH IF NO 


ANCH 
678 $36ET SOFT-SWR SETTINGS 
#1, SAUTOB :3SET AUTO-MODE INDICATOR 


64$ OVER THE ASCIZ 
CCRLF>/DECSPEC-112S077A D107 TEST/<CRLF> 


#O0PS ,avECO 3 LOAD oeeete e INTERUPT RETURN 

#340, 8VvEC2 sSET P atte A . ON INTERUPT 

acs sDETERMINE STATUS OF PWR OK BIT 
RESET THE BUSS 


FPP PNIN 


ry 
— So 
vss SERS 
nw 
on 
ofw 
NN =~ 


oo 
S35 


(1 
(1 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
a1 
(1 
(1 
57 
57 
57 
57 
57 


S3 
33s 


KONST 
001702 MOV R,KONST SSAVE CSR 
001702 B 3EP 77 KONST sMASK EVERYTHING EXCEPT PWR OK 
RESTRT: AY Then CK, SP SRESET STACK POINTER 


J r) ; IT 
002552 ROUTI: , #RONPRT ROUTE  ;SET UP FOR MONOPORT 
002552 ROUT2: oy ha ROUTE ;SET UP FOR MULTIPORT 


J 
ROUTS: CLEAR PARAMETER FLAG 
002552 MOV PAR,ROUTE ;SET UP RETUR 
J 60 GET PARAMETERS 
002552 ROUT4: m SET UP RETURN 


START 
002552 1$: ;SET UP FOR MANUAL INTERVENTION TEST 
PC .DTIME ; cf LL ae 


PPPS 
FAL= 
SeZs 
myenw 
SiS 


=~ 
ooo 


SuF¥FSF 


23s 
~ 


SSRnnssss 
mows mouse Wey 
W— NINUO UNNI 


rw 
ooo 
wrn— 
oonoe 


Seton 
Sense 





N 
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CROTAA.P11 J VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0026 
oo bos e8 teed rites ROUTE one RT a MAIN TEST DISPATCHER 
23 SSH Bois ao § 
602 902556 006737 022556 MONPRT: JSR PC ,DMODE 
603 00 004737 023120 JSR PC DTIME 
604 002 005737 000042 7 TST asi2 sXXDP CHAINMODE OR APT/ACT? 
605 572 - 001053 BNE TST1 >SKIP PRINTOUT IF ANYONE OF THE ABOVE 
606 002574 005757 001214 TST SPASS [0 PASSES? 
607 002600° 001046 BNE 4 > BR=NO 
608 002602 005737 001564 TST D103 [WHAT MODE IS DEVICE? 
609 002606 001422 BEQ 2$ [BR =D107 MODE 
610 002610 104401 002616 TYPE 65% is TYPE ASCIZ STRING 
(1) 002614 000416 BR 643 T OVER THE ASCIZ 
a) 3:65$: .ASCIZ <200>/THIS D107 ii“ IN DTO3 MODE./ 
(1) 002652 643: 
él 00265¢ 000621 a BR 38 360 START TESTS 
(1) 002654 104401 002662 TYPE 678 :sTYPE ASCIZ STRING 
(1) 002660 000413 BR 668 GET OvER THE ASCIZ 
(1) £:67%: .ASCIZ <200>/THIS D107 18 PORTA / 
(1) 002710 668: 
613 002710 013746 001574 MoV PORTNO.=(SP) SAVE PORTNO FOR TYPEOUT 
(1) 002714 104402 TYPOC 3:60 TYPE--OCTAL ASCIICALL DIGITS) 
ei 002716 006737 021342 3$: JSR PC ,WAIT10 WAIT ONE SECOND 
616 
aH 
619 peeneerererrereeereerrereeeeereeeeteearaasenenerenaeearenereeeee 
(3) ZeTEST 1 TEST POST-RESET BIT PATTERN IN CSR.IDX1 
(3) zp eeaeeeraererererereerererreeceserereresaegeeeneneeeeneeAeeeeeeeene 
(2) 002722 000004 ist: SCOPE 
(1) 002726 012737 000062 001172 MOV #50. ,STIMES 3:00 50. ITERATIONS 
1 002732 012737 177776 MOV #340,PSW ;RISE PRIORITY 
622 002740 12777 000101 176604 MOV #101,aCSR 7SET SOME BITS 
623 002746 013737 001702 001124 MOV KONST , GOOD :STORE GOOD DATA 
624 002754 000005 RESET INIT. 
625 002756 005200 1$: INC RO [DELAY AWHILE 
626 002760 001376 BNE 18 
627 002762 017737 176564 001126 MOV @CSR,BAD sSTORE CONTENTS OF CSR AND 
628 002770 013737 001552 001122 MOV CSR,BADA SADDRESS 
002776 023737 001124 001126 CMP 6000 ,BAD COMPAR 
00 001401 BEQ 2$ BR IF OK 
631 003006 104001 ERROR+1 :POST-RESET CONDITIONS NOT MET IN CSR 
632 003010 23: GO TO NEXT TEST 
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6 , *eeereeeeerecererrererereererererverrerererereerererereeerereee 
(3) TSTEST 2 TEST READ/WRITE BITS IN CSR.1DX2 
( ) -@ereererereree¢ereererereregererereererraerera2rerreerrera2rererere2eeee 
(2) 003010 000004 iét2: SCOPE 
MQ 003012 012737 000062 001172 MOV #50. .STINES 3:00 50. ITERATIONS 
636 003020 012737 000340 177776 MOV #340,PSu SLOCKOUT INTERUPTS 
637 00 5077 176520 CLR acs ZERO CSR 
638 00 013737 001702 001124 18: MOV KONST , GOOD [STORE GOOD DATA 
639 00 737 000001 001124 ADD rt 
640 003046 012737 003032 001110 MOV #18, SLPERR 3SET LOOP-ON-ERROR ADDRESS 
641 00 013777 001124 176470 MOV G00D ,@CSR 7SET BIT PATTERN 
642 00 017737 176464 001126 MOV @CSR.BAD :STORE CONTENTS OF CSR 
643 003070 042737 120600 001126 BIC #120600 ,BAD MASK THE CONNECT PROCESS INDIACATORS 
644 003076 0427 7 000074 001126 BIC #74 ,BAD TRASK RQO-3 
645 003106 023737 001124 001126 CMP 6000 ,BAD : COMPARE 
646 003112 001401 BEQ $ BR IF OK 
647 003116 104002 ERROR+2 [READ/WRITE BIT FAILURE IN CSR 
648 003116 013737 001702 001124 3S: MOV KONST,GOOD TSTORE GOOD DATA 
649 003124 062737 000100 001124 ADD #100, 6000 
650 003132 012737 003116 001110 MOV #3$, $LPERR SET LOOP=ON-ERROR ADDRESS 
651 003140 013777 001124 176404 MOV 5 [SET BIT PATTERN 
652 003146 017737 176400 001126 MOV @CSR,BAD STORE CONTENTS oF CSR 
653 003154 042737 120600 001126 BIC #120600,BAD MASK THE CONNECT PROCESS INDIACATORS 
654 003162 023737 001124 001126 CAP GOOD ,BAD : COMPARE 
655 003170 001401 BEQ 4$ BR IF OK 
656 003172 104002 ERROR+2 SREAD/WRITE BIT FAILURE IN CSR 
657 003174 013737 001702 001124 4S: MOV KONST ,GOOD SSTORE GOOD DATA 
658 003202 012737 003174 001110 MOV #43, SLPERR :SET LOOP=ON- ERROR ADDRESS 
659 003210 013777 001124 176334 MOV GOOD ,aCSR iSeT BIT PATTERN 
660 003216 017737 176330 001126 MOV acSR.BAD ORE CONTENTS OF CSR 
661 003224 023737 001124 001126 CMP GOOD .BAD SO OMPAR E 
662 003232 001401 BEQ 5$ BR IF OK 
663 003234 104002 ERROR+2 SREAD/WRITE BIT FAILURE IN CSR 
664 003236 5$: [G0 TO NEXT TEST 


LAIN. MACY11_30A(1052) _29-JAN-79 13:38 PAGE 12-15 vidi 
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3, eeeeerrrerererrerereererreerrererrrerrererenereeeeneeerereeeteee 


s*TEST 5 TEST OF BYTE ACCESS IN CSR.IDX3 


2, teereerererereerereerrererererereererereererenerereeeeeerereres 


TST3: SCOPE 
ROV #10. ,STIMES 3:00 10. ITERATIONS 


sCLEAR CONTENTS OF CSR 
sSTORE ADDRESS OF CSR 

sTRY TO LOAD LOW ORDER BYTE 
sSTORE GOOD DATA 


o 
= 
~ 
~ 
ww 
~ 


e=2es 
ae) et et 
Win 


NONNN 
Wun 
ANN 


sSTORE BAD DATA 
; COMPARE 


sBR IF OK 

44 BYTE ACCESS FAILURE IN CSR 
sSTORE GOOD DATA (PWR OK) 

sTRY LOADING HI ORDER BYTE OF CSR 
sSTORE CONTENTS OF CSR 

; COMPARE 


ssc 
me 


NSSor 
eusss 
~~Nw 


32 


oo-o 
— 
~ 


BEQ $ :BR IF OK 
ERROR*+3 sHI-BYTE ACCESS FAILURE IN CSR 
GO TO NEXT TEST 
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33 feeererecereererereerererereererera2r2erraeraena2reareereraerererreres 
s*TEST 4 CONNECT TEST WITHOUT INTERUPT ENABLE.IDX4 
*s geeenreerererererererereeeereererere2rreararaeraeraererereareereaeene 
TST4: 

001172 Lt) #10. ,STIRES 3:00 10. ITERATIONS 


18: RO ;SET DELAY TIMER 
177776 #0,PSu R 
acsr : 
179130 #8$ ,avEco 3SET RETURN 


17777 #346,PSu RISE PRIORITY 
KONST ,GOOD SSTORE GOOD DATA (SWB ACT,PWR OK,REQ) 


#20001 ,GooD 
001564 DT03 0103 MODE? 
118 BR IF DTO3 
000400 #4006000 [SET BRO IF D107 
000001 : #REQ.ACSR SET REQ (B1TO) 
176076 28: MO @cSR.BAD TSTORE CONTENTS OF CSR 
#74 ,BAD “MASK RQO-3 


° 


000074 
001124 _— 


scs So 
—_ 


ooo 
para Drs 
WW NIN 


000340 
001702 
020001 


F8SF 
g3 


N 
FSSuaaS 
UNNNNNUN NNN 


Wi Wri 
mse 


:BR IF NOT DONE 
;SWB ACT (B1T13),BRQ OR REQ NOT SET 
000000 : #0 & LOWER PRIORITY 
001702 ¢ ST sSTORE GOOD DATA (SWB ACT,PWR OK,CON,REQ) 


020201 
R sRESET DELAY 
176020 : MOV :STORE CONTENTS OF CSR 
D,BAD ; COMPARE 


001124 ; 
:BR IF OK 
:DELAY 
:BR IF NOT DONE 
;CON(BIT7) NOT SET 
175774 : CLR at CLEAR CSR AND DISCONNECT 


01 
01 
04 
02 
00 
00 
001 
104 
01 
01 
0627 
005 


(SP)+,RO :3POP STACK INTO RO 
(SP)+,RO 3;POP STACK INTO RO 
175762 001126 MOV aCSR BAD sSTORE CONTENTS.OF CSR 
s INTERUPT DETECTED WITH INTERUPT ENABLE CLEARED 
022402 175752 : MO #OOPS ,avECO sRESET RETURN 
: 360 TO NEXT TEST 
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CROTAA.P11 29-JAN-79 13:32 14 CONNECT TEST WITHOUT INTERUPT ENABLE .1DX4 


s,eeeteeeerrererereerrerrerererrereererrearererererererereeerereene 


s*TEST 5 RELEASE TEST WITHOUT INTERUPT ENABLE .1DX5 


,, tterererrrerrerererrrerererereerereerererenereeeekeneneereseeres 
TST5: 
#10. ,STIMES 3:00 10. ITERATIONS 
18: RO 7SET +5 a TIMER 
+ CONNECT 
STORE GOOD DATA (SWB ACT,PWR OK,CON,REQ) 


sDROP PRIORITY 
a OF CSR 


7C 
:BR 4 CONNECTED 


$ 
a0 aveco 


346,PS¥ : 
0 ?SET DELAY TIMER 
#REQ,@CSR [CLEAR REQUEST 
[STORE GOOD DATA (SWB ACT,PWR OK,CON) 


30103 MODE? 

3BR IF YES 

sADD BRQ IF D107 

STORE CONTENTS OF CSR 

; COMPARE 

3BR IF OK 

: DELAY 

BR IF NOT DONE 

:BRQ NOT SET OR REQ NOT CLEARED 
DROP PRIORITY 

; STORE + oy F DATA (PWR OK) 


RESET DELA 
aCSR,BAD : STORE CONTENTS OF CSR 
; COMPARE 


GOOD , BAD 
7$ BR IF OK 
RO :DELAY 
:BR IF NOT DONE 
+ SWB ACT NOT CLEARED 


Rete RES 
sosaes 


Se 


(SP)+,RO 3:POP STACK INTO RO 
:3POP STACK INTO RO 
175504 001126 ’ sSTORE CONTENTS OF CSR 
+5 ct _ WITH INTERUPT ENABLE CLRD 
022402 175474 : MO #OOPS ,avecd RESET RETURN 
:60 TO NEXT TEST 
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5, teeeerereerrererereerrerrrrererrrverkereenereererereeeereeeeeee 


s*TEST 6 CONNECT FAILURE TEST WITHOUT INTERUPT ENABLE .1DX6 


s eeeeerererereererererererereeerererereereeeeereererererererenee 
TST6: 
#10. ,STIMES 3:00 10. ITERATIONS 


18: RO :SET DELAY TIMER 
#0. PSw SLOWER PRIORITY 
csr [CLEAR CSR 
ns aveco [SET RETURN 
346,Psu SRISE PRIORITY 
SSTORE GOOD DATA (SWB ACT,PWR OK,REQ) 


ty MODE? 


FSSFSSS 


MW NNN 
mse —~ 
COWWwaN 
~~ 


400 ,G000 

#REQ,ACSR (B1T0) 
@CSR,BAD sSTORE CONTENTS OF CSR 
#74 ,BAD ;MASK RQ0-3 


NESSSSKSSTE 
oooo 


sssseee 


ARE 
“BR 1F OK 
RO DELAY 
BNE 2s 3BR IF NOT DONE 
ERROR+13 3SWB ACT (B1T13) OR REQ NOT SET 
001564 : TST ges 20103 MODE? 


SEPESEEEPEPEEEEErE 
Sens 


001702 
020401 


175312 
000074 
001124 


KONST ,GOOD 
sees aap 


@cSR BAD 
#74 ,BAD 


:BR IF YES 
STORE GOOD DATA (SWB ACT,PWR OK,BRQ,REQ) 


sRESET DELA 

; STORE CONTENTS OF CSR 
MASK RQO-3 

; COMP ARE 


GOOD .BAD 
ob 
RO 


BR IF OK 
:DELAY 
:BR IF NOT DONE 
;BRQ(B11T8) DID NOT SET 


001702 : MOV KONST , GOOD STORE GOOD DATA (TMO,PWR OK) 
. g100000 o sRESET DELA 


175242 : MOV @CSR,BAD : STORE CONTENTS OF CSR 
001124 GOOD , BAD : COMPA RE 
° IF OK 


SSSsse 


;DELAY 
BNE 6$ :BR IF = DONE 
ERROR+13 MO(BIT15) NOT SET 


175216 : CLR acsr 7 CLEAR cé MAND DISCONNECT 
BR 9$ ZEXIT 


ted et ad dt 
wesieseeiosies 
SSFSS 


(SP)+,RO :3POP STACK INTO RO 
;;POP STACK INTO a 
175204 001126 STORE CONTENTS OF 
OR+5 ; INTERUPT 2 path ity INTERUPT ENABLE CLEARED 


BR 7$ G0 CLEAR 
022402 175172 : #OOPS ,avECO RESET RETURN 
:G0 TO NEXT TEST 


SSSerrrrrr 
ENSSS 


SOON ~-~ Url un—o 
Pw 


Go Gu Co Co Oo — — COO COON OOD 
To ee PW PD 
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,;eererererrrererereerrrrrrerererererererereeeeerenereeerearerereree 


:#TEST 7 RELEASE TEST WITHOUT BUSS MASTERSHIP OR INTERUPT ENABLE .1DX7 


Sh aeemete eae ee eee es a ee 
iét : 
#10. ,STIMES 5:00 10. ITERATIONS 
18: RO :SET DELAY TIMER 
#1,aCSR $ 
KONST ,GOOD sSTORE GOOD DATA (SWB ACT,PWR OK,CON,REQ) 
#20201 , GOOD 
#0,PSu :DROP PRIORITY 
@c$R,BAD [STORE CONTENTS OF CSR 
GOOD , BAD : COMPARE 
‘BR IF CONNECTED 
RO [DELAY 
2$ ;BR IF NOT DONE 


000004 
012737 


S 
_ 
_ 
—~ 
~m 


— 
—~“ 


001702 
020201 
175122 
001124 


SsxsS 


7$ 
48s aveco ETUR 

340,PSu “RISE PRIORITY 
[SET DELAY TIMER 
#REQ,@CSR [CLEAR REQUEST 
KONST ,GOOD [STORE GOOD DATA (SWB ACT,PWR OK,CON) 
20400 , 6000 


:DT03_ MODE? 

ah BR IF YES 

#400 ,GO0D sADD BRQ IF D107 
@CSR,BAD +e CONTENTS OF CSR 


ZBR IF OK 
;DELAY 
BR IF NOT os 
;BRQ NOT SET OR REQ _ CLEARED 
STORE GOOD DATA (TMO,PWR OK) 


sRESET DELAY 
sSTORE CONTENTS OF CSR 
; COMPARE 


SELLE 


sss 8$8 


SENSE Rosen 


“ 
=) 


004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 


bt a4 
o 


BR IF NOT DONE 
:TMO NOT SET 
sEXIT 


: POP STACK INTO RO 


ELE 


001126 TS OF CSR 
OR+5 INTERUPPT oe vec tee WITH INTERUPT ENABLE CLRD 
174714 : MOV #OOPS ,avECO TRESET RETU 
:60 T0 NEXT Mest 





-MAIN. MACY11 30A(1052) 
CROTAA.P11 29-JAN-79 

868 

869 

(3) 

(3) 

(2) 004640 000004 
HE 004642 012737 
871 004650 005077 
872 006654 012737 
873 004662 013737 
874 004670 012737 
875 006676 012777 
876 004706 012777 
877 006712 032777 
878 004720 001774 
879 004722 162757 
880 0047350 000240 
881 004732 000240 
882 004734 000240 
883 004736 162737 
884 004744 001366 
885 004746 104010 
886 004750 000425 
887 004752 

(2) 004752 012600 
(2) 004754 012600 
888 004756 023737 
889 004764 001401 
890 004766 104011 
891 004770 017737 
892 004776 013737 
893 005004 062757 
894 005012 023737 
895 005020 001401 
896 005022 104012 
897 005024 005077 
898 005030 005037 
444 5034 012777 


29-JAN-79 
13:32 


000012 001172 


174676 
0 177776 


0 
174632 
177776 


001126 


001124 


174556 
001702 


174522 
177776 
622402 


s Peereerrererereerererreeereserereerererenereererererereeeeteeee 


CONNECT TEST. 1DX8 


, teererererereerrererererereresrerrrereeerereeteeeeeererereeteees 


13: 28 PAGE 12-20 
RELEASE TEST WITHOUT BUSS MASTERSHIP OR INTERUPT ENABLE.1DX7 


s#TEST 10 

ig110: SCOPE 
ROV #10. ,STIMES 
CLR acsr 
MOV #340 ,PSw 
MOV PR 


2s: 


3$: 


4$: 
5$: 


SUB #40,PSW 


NOP 

NOP 

SUB #40,BAD 
BNE 1$ 
ERROR+10 

BR 4$ 


MOV (SP)+,RO 
MOV (SP)+,RO 
CMP GOOD ,BAD 


CMP GOOD ,BAD 
Se 


oI 
MOV #OOPS ,avECcO 


::D0 10. ITERATIONS 


sCLEAR CSR 


sRISE PRIORI 
STORE PRIORITY 
: STORE ACTUAL 


eT 
:SET 1.€. 


AND REQ 
WAIT FOR <~ ~ TO APPEAR 


:BR IF NOT T 


HER 
SLOWER PRIORITY UNTIL INTERUPTED 


Ty 


INDIACATOR 


UNTIL DONE 
as Wada DETECTED 


::POP STACK INTO RO 


:;POP STAC 


0 RO 


K INT 
sCORRECT BREAK LEVEL? 
F OK 


3sBR 
s INTERUPT AT WRONG PRIORITY 


sSTORE CONTENTS OF CSR 


STORE GOOD DATA (SWB ACT,PWR OK,CON,1E,REQ) 


; COMPARE — 


BR IF OK 
; CONNECT reine FAILURE 


CLEAR CS 


LOWER PRIORITY 
sRESET RETURN 
:G0 TO NEXT TEST 


LEVEL 
PRIORITY INDIACATOR 


SEQ 0035 


sMAIN. MACY11 30A(1052) 29-JAN-79 13:38 PAGE 12-21 
CROTAA.P11 29-JAN-79 13:32 710 CONNECT TEST.10X8 


Wr 


Ss, eereerereereerrereererereererrerererereeeenteeeeereneereAeeeeese 


s*TEST 11 RELEASE TEST .1DX9 


gay eae eg es i me a oneal a brat waive 
TST11: 
#10. ,STIMES 3:00 10. ITERATIONS 
18: RO :SET DELAY TIMER 
; CONNECT 


=RGa388 


wwewe 
ees Sf 
pars = 
Www fr 
~ 
se 
~ 


sSTORE GOOD DATA (SWB ACT,PWR OK,CON,REQ) 
sDROP PRIORITY 
sSTORE CONTENTS OF CSR 


; COMPARE 
BR of CONNECTED 


$22383 
ean 


see 
Seis 


oo0o 
sh ee eet et 
WVFWN—O 
eS 
ney 
non 


>BR=NO 
:SET DELAY TIMER 
; CLEAR ote bat 


pesesseee 


—w 
~ 
~ 


(PWR OK) 


sSTORE GOOD A 
sSTORE CONTENTS OF CSR 
; COMPARE 


BEQ sBR IF OK 
ERROR+15 sRELEASE CONDITIONS NOT MET 
BR 0$ ;GO TO NEXT TEST 


1 

#9$,aveEco “SET RETURN 

#100, acsr =SET 1.E. 

#1,acsR [CLR REQ. 

PC WAITOS [60 WAIT 

KONST , GOOD [LOAD GOOD 
1006000 


#100, 
MOV aCSR,BAD 
ERROR+10 3NO_INTERUPT 
BR 108 XIT 


#STACK,SP RESET STACK 
KONST . GOOD LOAD GOOD 


@CSR.BAD 
00D .BAD 


sa 


acsr ;CLEAR AND DISCONNECT 
MOV #OOPS ,avECO ;RESET RETURN 
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ss, eeeeeeerrererrerrrererererrerrrrrerererereeeeeeeeeeeeeereeerese 


s*TEST 12 CONNECT FAILURE TEST.1DX10 


age Meee tiers gets teat testa, ee eee ee 
TSTl2: 
#10. ,STIMES 3:00 10. ITERATIONS 


acsr sCLEAR CSR 
aaa sRISE PRIORITY 
RO :SET DELAY TIMER 
#2$ ,avECco 3SET RETURN 


sSTORE GOOD DATA (TMO,PWR OK,IE) 
[0103 MODE? 

:BR IF D103 

3 ADD Bro 1F 0107 

sSET 1.6. AND REQ 

sSTORE CONTENTS OF CSR 

COMPAR E 

:BR js OK 

sDELA 

[BR IF NOT DONE 
3TRMO NOT SET 


sEX] 
sRESET DELAY 
:DROP PRIORITY 


LAY 
BR IF 


NOT DONE 
ee. DETECTED 


(SP)+,RO + POP STACK INTO RO 
(SP)+,RO POP STACK INTO RO 
174056 CLEAR CSR 


: acsr 
022402 174052 : MO #OOPS ,avECO RESET RETURN 
:G0 TO NEXT TEST 


SEQ 0035 
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;, eeererrerrrerreerreereererererrerereererereeeeeretereerererteeeeee 


s*TEST 13 RELEASE TEST WITHOUT BUSS MASTERSHIP.1DX11 


,, eeeeeereeerererreserrereeerereetertenereresarereneeereeereeeeee 


#10. ,STIMES 3:00 10. ITERATIONS 


TST13: 
18: RO sSET DELAY TIMER 
#1,aCSR > CONNECT 


KONST ,GOOD 
#20201 , GOOD sSTORE GOOD DATA (SWB ACT,PWR OK,CON,REQ) 
#0,PSw [DROP PRIORITY 

acsr,Bad SSTORE CONTENTS OF CSR 

6000 .BAD : 

[BR iF CONNECTED 


RO 2DELA 
rs 


ees SSSESSS 
Sesscce 


une 


$ 
#6$,avEcO 
#340,PSu 
RO 


Se SSSSSSSess 
g 


sss 
J a5 
Who wmnorys 
Sax 

—- == 

uve NN 


sCLEAR REQUEST AND SET IE 
sSTORE CONTENTS OF CSR 
STORE GOOD DATA(TMO,PWR OK,1E) 
30103 MODE? 
sBR IF DTO3 
sADD BRQ IF D107 
_ COMPARE 
sBR IF OK 
DELAY 


sDEL 
:BR IF NOT DONE 
i, Baad SET 


: #0 
001124 sSTORE GOOD DATA (TMO,PWR OK,1E) 
RO sRESET DELAY 
177776 sDROP PRIORITY 
RO DELAY 
3sBR IF NOT DONE 
ee rey 


(SP)+,RO ::POP STACK INTO RO 
(SP)+,RO :;POP_STACK INTO RO 
022402 : #OOPS ,avECO sRESET RETURN 
:G0 TO NEXT TEST 


ssssessssece 

FESSOR SRN 

BSSuasaw ~ 
nuns ~ 
ss 338 


979 
980 
982 
984 
986 
988 
989 
990 
991 
992 
993 
99% 
995 
996 
997 
998 
999 
000 
001 
002 
003 
004 
005 
006 
007 
008 
009 


WANrm—w 
NOC Uw 


= l=} tL} 
e8SSsss 
SSSasau 
coos 


1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
\ 
1 
1 
1 
1 
1 


a ett ee ed et ed 


ooo 
— ot 
Mmrot 


oon -0C00°0°00oo 
~ 
~ 
~™ 


——nwrv 
@en~~OUSWN—O 
So 
™ 


Saal 
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so eeteeeeeerererereeresreeereeereeeerrerenerrrerereeeeeresereeeees 


s*TEST 14 RESET (RST) TEST.1DX12 


s, eeeerererererereerererereereserereerereerererereneeeeeeerereeee 


TS114: 
#10. ,STIMES 7:00 10. ITERATIONS 


SPASS sFIRST PASS? 

5$ 3SKIP_TEST ~ FIRST PASS 
DEVCON RESET IN NEUTRAL? 

5$ =NO 


3BR RESET IN NEUTRAL 
DEVAD 31S A DEVICE REGISTER PRESENT? 
5$ sEXIT IF NOT 
DEVRC ;RESETABLE BITS PRESENT? 
5$ 3BR=NO SO EXIT 
: DROP _— 
3 CONNECTED? 
sBR IF YES 
: TIMEOUT? 
3BR IF NOT 
sSTORE CONTENTS OF CSR 


sSTORE GOOD DATA(SWB ACT.PWR OK.CON,REQ) 
sCOULDN'T CONNECT 


5 sEXI 

DEVRW ,@DEVAD 3 SET yet ty BITS A EXTERNAL DEVICE REGISTER 
@DEVAD ,BAD ; STORE oe TS OF DEVAD 

DEVRY ;COMPLEMENT R/W BITS 

DEVRW BAD CLEAR OUT BITS 7 a. TEST 

DEVRW sRESTORE ORIGINAL PATTERN 

DEVRW .BAD 01D THEY SET? 

:BR IF YES 

: COULDN'T SET READ/WRITE BITS IN DEVAD 
sSET RST 

:SET UP FOR 22MSEC COUNT 


sSTILL SET? 
:sTYPE ASCIZ eg 
$ OVER THE ASCIZ 
<200>/ERROR! rst ibit9) oDIDN! T CLEAR IN TIME./ 


toto 
SrA UFS ww 
S8$ss88 = 
=—WOuvww FO 
BEARS La 
a—~ OS 


SS ww rw ow 
~ 
~u~w 


oo 

SEs 
S 
we 


= 


HEHE 
: 


FUSS 
o2Ss 
PANN 
~~~ 
~~ 
~~~ 


#0,PSwu 
#REQ,ACSR 
CSR 


SSE 
x 
aoe 
VuUIunn— 
Anno 


~ 

yo 

S=28 
Ne Ne INU 
So wan 


1 
1 
1 
i 
7 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
4 
j 
1 
1 
1 
1 
1 


eed 8 et et a et ot 


FSFE VBSELSRESRNSNES 


@DEVAD ,BAD sSTORE CONTENTS OF DEVAD 
—— a oe CONDITIONS MET? 


:BR IF YES 
re sWAIT AWHILE 
DEVRC ,GOOD sSAVE DEVRC 
GOOD ,BAD WH] LITE BAD ay 


RESET (RST) D 
acsr ;SHUT DOWN AND 


SSSSESEESS SSESESESESEERE 
SSEN 


SESSFERSESSISSSSSFSSSESELESFELEE 


i 


1S 
DN'T 
60 To'N NEXT TEST 


SS 





4 
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PUT i iii iiiiiiiiiiiiiiiiiiiiiiiiiiiiii 
2 *TEST 15 RESET HOLD (HLD) TEST.1DX13 
s eeeeeeerecerveerrererereeeerrrereereeeeererereereeeeeeereeerete 
SCOPE 
000012 MOV #10. .STIMES 3:00 10. ITERATIONS 


001564 0103 30103 MODE 
BNE BS sBR IF YES 
60 ,PSu sDROP PRIORITY 
@REQ,ACSR C CT 
acsr 


= 

~~ ~ 

w Ww 
snus 


000001 
173206 
rs] 
173200 acsr 
1$ :BR IF NOT 
173172 @CSR,BAD sSTORE CONTENTS OF CSR 
001702 


KONST GOOD 
020201 ADD #20201 ,GOOD STORE 6000 DATA(SWB ACT. PWR OK,CON.REQ) 
[COULDN'T CONNECT 


BR 3$ 3EXIT 
000002 : : :SET HLD(BIT1) 
RESET RESET 


173134 STORE CONTENTS OF CSR 
000200 ss see CONNECTED? 


BR IF YES 
sHLD DIDN'T DISABLE RESET 
173114 : CLR acsr ; SHUTDOWN AND GO TO NEXT TEST 


WANN 
ANNNUNO 


1 
1 
1 
1 
1 
j 
: 
1 
1 
1 
1 
1 
1 
1 


SESSSESSFESESS 





ae 
& 
e 


s 


82500332 
SSSS=SSSEZSZ 


So 
—_ 


ast oS et eh tt 


SS CLL USUN US SaNounun-oSeus Aron 


ce ce ce ced ce ce ee ed cd ed ed ed ed ee ed ee eed ed ed ed eed ot et 


tt at at mk wt wt at nt wt St OR Rt i nt nt wt wm ts = = Sn = ws ws es 
Rote Po Ven PPPOE 
~ 


nt ek et ek ek et et et et 
<SSSLEAFUSLSSS 


. n 3 
MACY11 30A(1052) 29-JAN-79 13:38 PAGE 12-26 - 
P11 25 ines 13:32 115s RESET WOLD (HLD) TEST.10x13 SEQ 0039 


cs, teeerereererereererererereerrreserrerageerreerereneeeenerereeeee 


s*TEST 16 HI-SPEED SWITCHING TEST.IDX14 


TST16: SCOPE 
MOV 


; 


006440 012737 00012 001172 #10. .STIMES 5:00 10. ITERATIONS 
006446 012701 001750 MOV #1000. .R1 :SET COUNTER 
006452 test 000000 177776 118: MOV #0 ,PSW sDOROP PRIORITY 
006460 012777 000001 173064 MOV @REQ,aCSR 3 CT 
vg 5 105777 173060 18: TSTB acsr 3: CONNECTED? 
006472 100416 BMI 28 BR IF YES 
006474 005777 173052 TST acsr s TIMEOUT? 
006500 100372 BPL 1$ 3BR IF NOT 
Sreers 17737 173044 001126 MOV acsr BAD sSTORE CONTENTS OF CSR 
006510 013737 001702 001124 MOV KONST ,GOOD 
006516 737 020201 001124 #20201 , GOOD :SiORE GOOD DATA(SWB ACT.PWR OK,CON,REQ) 
pose n 104006 — ; 2 1 al CONNECT 
0065 Z7F7 00001 175014 28: BIC #1,a@CSR SRELEASE CONNECTION 
006536 013737 001702 001124 MOV KONST ,GOOD sSTORE GOOD DATA(PWR OK) 
006544 005000 CLR RO [SET DELAY TIMER 
006546 017737 173000 001126 3S: MOV ac3Rr,BAD sSTORE CONTENTS OF CSR 
006554 023737 001124 001126 CMP GOOD ,BAD 3; COMPARE 
006562 00140 BEQ 4 sBR IF OK 
006564 10401 ERROR+15 sRELEASE CONDITIONS NOT MET 
006566 000402 BR 5% EXIT 
006570 005301 4$: DEC Oss [COUNT A SUBPASS 
006572 001327 BNE 11$ 3BR IF CONTINUE 
$ L 7 SHU x 
006574 005077 172752 5$ CLR acsr SHUTDOWN AND GO TO NEXT TEST 
r pS eeeererererererretereereeeeeeeeeteeeAeKaeenesaeeeaeeeenereeeee 
:*TEST 17 RESET-IN-NEUTRAL TEST.IDX15 
ss eeeearerererereeereerereererererereeanRAResaneeeeeereKeneeneees 
006600 000004 18117: SCOPE 
006602 012737 000001 001172 MOV #1, STIMES 5:00 1 ITERATION 
006610 005737 001566 TST DEVAD 318 A DEVICE REGISTER PRESENT? 
006614 po 1ONs BNE 13$ sCONTINUE TEST IF PRESENT 
006616 000137 007250 JMP 12$ G0 EXIT 
006622 005737 001572 13$: TST DEVRC sANY RESETABLE BITS? 
26 001002 BNE 14$ SBREYES 
30 000137 007250 JMP 12$ 760 EXIT 
01 el 000000 177776 14$%: MOV #0,PSW sDROP PRIORITY 
006642 012777 000001 172702 MOV #REQ,ACSR : CT 
606650 105777 1726764 1$: TSTB 3s @CSR : CONNECTED? 
006654 100416 BM! 2$ BR IF YES 
006056 005777 172670 TST acsRr s TIMEOUT? 
100372 BPL 1$ BR IF NOT 
017 172662 001126 MOV @CSR,BAD :STORE CONTENTS OF CSR 
006672 013737 001702 001124 MOV KONST , GOOD 
006 062757 020201 001124 ADD #20201 ,GOoD sSTORE GOOD DATA(SWB ACT,PWR OK,CON,REQ) 


Seane Ot a et a et et 
DFERISSSLSEULUNLSSELSESES 


trl at at kk tt a tt et as et we os oe os ot 


ee ee ee me ee Be a ee ee ee ee ce ce ed ee ed et ed 


ee ee ee ee, —2 = 
POP ESOS SSS JS SSNS VFN VSSSSF 


oe 
NN 


RACTII 


CROTAA.P11 


006 
00671 
71 


—_ 


Nan 


SxSFsF 


5 


~r 


3 


——O0—— 
SS5x8SSs 
ry RRR CREE RS SRL 


w 
ANNO NNN 


——<—-— «— -—- 


> 29-JAN-79 153: , PAGE 12-27 
13:32 RESET-IN-NEUTRAL TEST.IDX15 


| le CONNECT 
Set yt tS i. DEVICE REGISTER 


000001 
172540 
172532 


172524 
001702 
020201 


172512 
001572 
177777 


001214 


007116 


007174 


001704 
001704 


172276 


6$: 


EQ 
ERROR+22 


B 4 


#0,PSu 
#REQ,OCSR 

acsr 

6% 

acsr 

5$ 

aCsR,BAD 

KONST ,GOOD 

#20201 ,GOOD 
28 

@DEVAD ,BAD 
DEVRC BAD 

#-1,R2 


658 


4$ 
<200>/THIS D107 


108 
,67$ 


66$ 
<200>/THIS D107 


R2 ,DEVCON 
Rg DEVCON 


acsr 





3 STORE pole gh 


sBR IF YES 

:COWDN" T SET READ/WRITE BITS IN DEVAD 
DISCONNECT 
; DONE? 


3 BR=NO 
:DROP eee 


; CONNECTED? 


:BR IF so 
; TIMEOUT? 
:BR IF NOT 
sSTORE CONTENTS OF CSR 


sSTORE GOOD DATA(SWB ACT.PWR OK ,CON,REQ) 
: COULDN' T CONNECT 


XI] 
sSTORE CONTENTS OF DEVAD 
:RESET a MET? 


;BR=Y 
3: SET + FOR NO RESET 
sSET R2 FOR RESET 


FIRST PASS? 


CHECK RESET CONDITION 
;BR=RESET 
3 TYPE at s ,. rg 


T OVER T 


SCIZ 
MmIBITS RESET- TN-NEUTRAL. / 


ni ASCIZ STRING 
GET OVER THE ASCIZ 
Résets IN NEUTRAL./ 
sSTORE CONDITION 
sHAS IT CHANGED? 


TRESET= IN-NEUTRAL OPERATION HAS CHANGED 
:CLEAR AND DISCONNECT 





Cc 4 
MACY11_ 30A(1052) 29-JAN-79 13:38 PAGE 12-28 
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2444 021232 MONEND: MOV @RESTRT,SRTINAD ;SET RETURN 
1132 JMP SEOP ; 


260 DO END PASS 
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P11 29-JAN-79 13:32 117 RESET-IN-NEUTRAL TEST.IDX15 


-SBTTL MULTIPORT TEST 
025754 MULPRT : PARFLG sCHECK FOR PARAMETERS 
BA 1$ >BR 


sBR=Y 
023612 PC PARIN [G0 INPUT PARAMETERS 
001000 18: MOV #1600, CYCLE :SET 

001704 DEVCON [RESET IN NEUTRAL OPTION USED? 


2s BR= 
001706 vain sSET FLAG FOR TEST 


2$+6 3 
177777 001706 : MOV #-1, TRIN sSET FLAG FOR NO TEST 
001564 0108 [0103 MODE? 
3$ [BR=DT07 MODE 

012422 MULDT3 [G0 DO D103 MULTIPORT 
022402 172204 38: #OOPS ,avVECO 7SET RETURN 
000340 172200 #340,avec2 SET LEVEL 
021700 PC, SEQMAK 760 CONSTRUCT SEQUENCER 
022246 PC. SEQINT SINIT. SEQUENCER 
000000 177776 #0,PSu [DROP PRIORITY 
001574 PORTNO,RS sMASTER OR SLAVE? 

SLAVE BR=SLAVE 
021442 #632. TOCK 3SET CLOCK FOR 5S SEC 


BR MASTER G0 TO MASTER CODE AFTER SYNC WAIT 
DISPAT: sMY TURN AS MASTER? 
BE E BR=YES 


:BR=Y 
J :G0 BE SLAVE 
MASTER: » 3G0 MAKE MASTER MENU 


S 
3383-338 
Rent ae 


ss 
w 
SS 
eosegss 
MNCL 
OWwow 
BRANNAN NIN NNO 


Sxee 


£3 
4 


000632 
021402 


SOCOnOUS WMO 
Sag 
wn~ 


021442 


260 CONNECT 
18: CURFUN ; INSURE NO EXTRANEOUS BITS PRESENT 
001652 1a eee :GET CURRANT FUNCTION 


C sCLEAN IT OUT 
(R4) ,CURID 3GET CURRANT ID 


$ 


RFUN :DOUBLE IT 
#TABR-2 R35 ;LOAD BASE ADDRESS 
CURFUN,R5 sADD OFFSET 
3,R3 :GET ACTUAL ADDRESS 
360 DO IT 
:STEP THRU MENU 
3DONE MENU? 


:BR=NO 
PC ,SEQSTP 360 STEP SEQUENCER 
CYCLE ; T 


—“ 
= 
ooo 
=iaee 


3 


“~~ 
Mmmm 
b bers soo FNS 
SxS 
—rOw 


S333 


= 


J DISPAT : 
021232 2%: WAULPRT,SRTINAD ; 
J SEOP+2 ; 
SLAVE: PC, SALMEN 3G0 MAKE SLAVE MENU 
J PC,SYNCUP :GO0 SYNCUP! 2 MINUTE TIME OUT 
1$: CL CURFUN sCLEAN IT 
001652 1(R4) ,CURFUN 3GET CURRANT FUNCTION 
CL CURID ;CLEAN IT 


Sees 


— 





Sz 
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(R4) ,CURID 3GE7 CURRANT ID 


CURF UN sDOUBLE IT 
STABR-2,.83 LOAD BASE ADDRESS 
CURFUN,R3 sADD OFFSET 

R3,R3 3GET ACTUAL ADDRESS 


;GO I 
STEP THRU MENU 
177777 ; ;DONE MENU 


>BR=NO 
022270 PC, SEQSTP G0 STEP SEQUENCER 
001656 CYCLE : COUNT 


DCEO 
oS at 


& 


ee ed ee ed et et td et at ot ts F 4 
w 
oO 


S NMP rwrnrrnrr 
LF AFERLS 


DISPAT : 
021232 28: #MULPRT,SRINAD : 
SEOP+2 [G0 DO END PASS 


SS 


sEXTERNAL CONNECT REQUEST REJECTED 


FUNCT1: JSR PC, CONNEC :G0 CONNECT 
JSR PC. CONID [G0 CONVERT SLAVE 1D 
#1$,aveEco [SET RETURN 
#101 ,acse [ENABLE INTERUPT 
RO ET TIMER 


=233 
— 
SSANNEF 
¥SSss 

— Oo 


3 TIME OUT 
:BR IF NOT DONE 
+3 TYPE ASCIZ eaee 
648 :GET OVER THE ASCIZ 
<200>/ERROR1A! NO EXTERNAL REQUEST INTERUPT DETECTED. CSR= / 


@CSR,BAD sSAVE CSR 
BAD ,~(SP) SAVE BAD FOR TYPEOUT 
3:60 TYPE--OCTAL ASCII(ALL DIGITS) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SSSSISFSASSE 
geese 


NRMANNA RR ANNNRNNNMNRNNNNTn 
www 


S=S3 
S 
& 


-72 


(SP)+,RO ::POP STACK INTO RO 
(SP)+_RO ::POP STACK INTO RO 
@CSR,BAD :S$TORE CONTENTS OF CSR 
#10000 .BAD ; MAKE E SURE EXT INT 1S SET 


2 :BR = 
on isTYPE ASCIZ STRING 

T OVER THE ASCIZ 
300>/ERRORIB! EXiERNAL INTERUPT NOT SET. CSR= / 


BAD ,~(SP) 3;SAVE BAD FOR TYPEOUT 
3360 TYPE--OCTAL ASCIICALL DIGITS) 


—t =? we —t 
aaHnn 
vves 
~~ 

~ 
~ 
o 


Ss 
ted a 
=—~Mmnrr 


‘ a we 
MA NAR RK KANN 
3 
Sooooooeoo oCoOooooooeoeSscHE“ 
ee ce eet etd a SO et 
SPevereeeey 
—e 
Se 
= 


SSIL [NSSF 


oe 
28 


~~ we ty 


2.72 
: ese toy SLAVE 1D? 
010176 698 3 TYPE mr te STRING 
688 OVER THE ASCIZ 
<200>/ERRORIC! EXTERNAL REQUEST FROM WRONG PORT. CSR= / 


SS 
oooooocoeo 


a a et ot et 
FSSSSINSS 


— 
oS 
— 
So 
™Nm 
eo 
™ 
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013746 001126 MOVs BAD, =(SP) :;SAVE BAD FOR TYPEOUT 
104402 [G0 TYPE--OCTAL ASCII(ALL DIGITS) 


000776 72 

012777 000101 : #101,aCSR sCLEAR EXT INT 
#OO0PS ,avECcO sRESET RETURN 
Sa LOWER PRIORITY 


a 
- 
“3 5 
— 


SEXTERNAL REQUEST IGNORED 
FUNCT2: JSR PC, CONNEC :G0 CONNECT 
JSR PC.CONID [G0 CONVERT SLAVE ID 
#18, aveco [SET RETURN 
TRIN [CAN WE TEST RESET IN NEUTRAL? 


6$ 3;BR=NO 
001570 DEVRW, aDEVAD 3LOAD READ/WRITE BITS 
001570 DEVRW,@DEVAD LOADED? 
6$ :BR=YES 
010366 Pe 33 TYPE ASCIZ STRING 
R 3sGET OVER THE ASCIZ 
2300>/ERRORZE ! COULDN'T LOAD EXTERNAL DEVICE REGISTER.. 


001566 #0 DEVAD ,-(SP) foe DEVAD FOR TYPEOUT 
TYPE--OCTAL ASCII(ALL DIGITS) 

177777 001706 #0 #-1, TRIN SET FLAG FOR NO TEST 
000101 171056 : #101, aCsR ENABLE INTERUPT 

RO SET TIMER 

:TIME OUT 

. :BR IF NOT DONE 

010510 +s TYPE ASCIZ STRING 
R 668 3GET OVER THE ASCIZ 
<200>/ERRORZA! NO EXTERNAL REQUEST INTERUPT DETECTED. (CSR= / 


001126 ; @CSR,BAD SAVE CSR 
BAD, -(SP) :;SAVE BAD FOR TYPEOUT 
[:G0 TYPE*-OCTAL ASCII(ALL DIGITS) 


02125 
02131 
01062 


$3 


4 
2 
0 


SSSSSeSSsSsszssy 
geesse 


ek at as at ss ss as as oo § 4 
Se 
wort 


ve Wane 
te ed et et ed et 
www wnt—oO 
tt 4 
orSSs 


( 
t 
( 
3 
( 
13 
13 
13 
13 
13 
13. 
( 
( 
( 
3 
3 
( 
3 


1 
1 
1 
1 
1 
1 
1 
1 
2 
1 
1 
1 
2 
2 
1 
2 
2 
2 


ooo 
sss 
ENS 


fuTrwe~ ~~ OOOO Uw fF 


72 


(SP)+,RO ::POP STACK INTO RO 

(SP)+. sho ::POP STACK INTO RO 

acsr SSTORE CONTENTS OF CSR 
010000 #10060, BAD :MAKE SURE EXT INT IS SET 


E 3B 
010650 09% 3 TYPE - +e STRING 
68$ ;GET OVER THE ASCIZ 
<200>/ERROR2B! EXTERNAL INTERUPT NOT SET. CSR= / 


001126 ee) BAD ,-(SP) ::SAVE BAD FOR TYPEOUT 
[G0 TYPE=-OCTAL ASCII(ALL DIGITS) 


a oe — —> —_ — 
~Www 
—— = MNP 
www OD~ANO~ YW 
FFTESESTSEE 
WNMNNINR —— = 
NONMFSLNMNOSCS Fry 


Wt = A HK Ie 
SOOOCOOOoOO COCOCOOoOOoOOoOOoOOoOOoOOoOOSOSoSO eCoCooocoOoo 


ooooo°o°o 


A: 
001660 001126 : COV10,BAD sCORRECT SLAVE 1D? 
3$ BR=YES 


Nepean 
RSENSTS 


—) a ee 
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1335 010754 zz 14PE ASCIZ STRING 
R 0s OVER THE ASCIZ 
<200>/ERROR2C ! ckicnnas REQUEST FROM WRONG PORT. CSR= / 


BAD ,-(SP) 3:SAVE BAD FOR TYPEOUT 
3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 


WW AAA 
SSLI FSIS 
FESZEFEE 
oon 


ome 

170474 : 84% ,,avECo + SET RETURN 
PSw — PRIORITY 
PC ,WAITOS 


13s :rTYPE ASCIZ STRING 
T OVER THE ASCIZ 
<500>/ERRORZD! SLAVE DIDN'T TAKE SHARED BUSS. CSR= / 


acsR,-(SP) 7;SAVE @CSR FOR TYPEOUT 
3:60 TYPE--OCTAL ASCII(ALL DIGITS) 


oo 

aw 

+o 
=~ 


NT otetet SSS 


www ew fo 


72 


(SP)+,RO ::POP STACK INTO RO 

(SP)+,RO ::POP STACK INTO RO 

(SP)+,RO :3POP STACK INTO RO 
170350 ; TIMEOUT SET? 


5 SBR=YES 
011212 75$ 3 TYPE ASCIZ STRING 
R 74 :GET OVER THE ASCIZ 
<200>/ERRORZE! NO TMO ON INTERUPT. CSR= / 


170266 001126 @CSR BAD :SAVE CSR 
001126 MOV BAD ,~(SP) 7:SAVE BAD FOR TYPEOUT 
33G0 TYPE--OCTAL ASCII(ALL DIGITS) 


eb a 
ESE 
Sooooooooo ocoooooooooocee coocooooCeSoO Coo 


ol aha 
Mmnr 
RNVSENSSSIERSS 


oe 
Sook F¥ 
www OODNweww 
POPRIPIPIPIRD PROPOR et et et et et ot ot oe oe es 
SFnNSSS S 


FUN cls 
“ 


72 

022402 170246 : #OOPS ,avECO a the — 

170240 acsr sCLEAR CSR 

177776 PSW [LOWER PRIORITY 
PC sEXIT 


w 
w 
ete ne nt 4 ee a et a at a at te a tt st Le en on eel 


eed oe dd oe ed ee se a et et et et a et on et st ao tO a 


( 
( 
( 
3 
3 
( 
3 
3 
3 
5 
3 
3 
3 
3 


See 


:SEND CONNECT REQUEST EXPECT REJECTION 
FUNCT3: CLR RO :SET TIMERS 
MOV #400,R1 
170216 1$: #20000, aCSR sSWITCHED BUSS ACTIVE? 
2$ ‘BR=YES 
[TIME OUT 


SESESSSSS TS 
ooooooooooeo 
— ee ee ee 
—_— aa oe es ts 
Seah ob ob ol 
S¥SRS 
one 
SS 
CSSsaess 


sO fNwOS 


i$ 
001126 MO ie CONTENTS OF CSR 
oos i TYPE ASCIZ STRING 
BR :GET OVER THE ASCIZ 
Tt -ASCIZ £300> /ERRORSA! NO’ SWITCHED BUSS MASTER DETECTED. CSR = 


~ AK ARwmww 
— QQ 
~~ we we PQ 
i SoFFre 
o 
wWwoun 


So 
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BAD ,-(SP) 7:SAVE BAD FOR TYPEOUT 
33:G0 TYPE--OCTAL ASCII(ALL DIGITS) 


.-2 

170066 28: #38 ,avEco :SET RETURN 

170056 MOV #101 ,acsr [SET IE + REQ 
[WAIT FOR INTERUPT 


(SP)+,RO 3;POP STACK INTO RO 
(SP)+,RO :;POP STACK INTO RO 
acsr ; TIMEOUT? 


SSernd 


S55 
oor 


4% sBR=YES 
001126 MOV @CSR,BAD ; CSR 
! ,67% 2: TYPE ASCIZ STRING 
4 3:GET OVER THE ASCIZ 
<200>/ERROR3B! NO TIMEOUT DETECTED. CSR=/ 


BAD ,-(SP) :;SAVE BAD FOR TYPEOUT 
22:G0 TYPE--OCTAL ASCII(ALL DIGITS) 


— 
S¥sso¥eegsCy 
ee ee — Sue 
SSS SSSSss 
£oo NCOOCT 


& 
Siw 
o 


72 
: acsr sCLEAR + DISCONNECT 

167740 #OOPS ,avECO RESET RETURN 

PSW sLOWER PRIORITY 


7ee8 


RTS PC 3 EX 

SEND CONNECT REQUEST EXPECT CONNECTION 

CLR RO sSET TIMERS 

SWITCHED BUSS ACTIVE? 
;BR=YES 


Oooo FO 
SEER S 


MO #400,R1 
167714 18: #20000. ack 


sTIME OUT 


eereperrry Tt 


EEEE 


1$ 
001126 MOV STORE CONTENTS OF CSR 
65$ C1Z STRING 


RSS 


BAD ,~(SP) 7:SAVE BAD FOR TYPEOUT 
3:60 TYPE--OCTAL ASCII(ALL DIGITS) 


SFSs 


o 
son 


2 
001662 28: TIMA, TEMP1 :SET TIMER 
TEMP i 


167550 : #20000 ,aCSR :SWB ACT SET? 
FUNCT4 ;BR=NO 
TEMP1 


WVSSIFSS 
Sas 
—_ 
we 


3335 
eessse 


218 
167534 #3$,aveco :SET RETURN 
167524 #101 ,acsr [SET IE + REQ 
‘WAIT FOR INTERUPT 


(SP)+,RO ::POP STACK INTO RO 
Vv (SP)+,RO :;POP STACK INTO RO 
167512 acsr ; CONNECTED? 


oo 

— 

ANNNWO NW 
=~ SVN NNO 


: 


0 
0 
0 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 


—ooO 
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1004 37 BAI 4h 7BR=YES 
017737 7 001126 MOV @CSR.BAD 3 SAVE_CSR 
noe i 6 TYPE tN 3 TYPE + STRING 


BR 66% :GET OVER THE ASCIZ 
-ASCIZ <200>/ERRORGB! CONNECT REQUEST FAILED. CSR=/ 


013746 MOV BAD ,-(SP) :;SAVE BAD FOR TYPEOUT 
104402 3360 TYPE--OCTAL ASCII(ALL DIGITS) 


000000 
000776 B Pe 4 
005737 ¢ TRIN :CAN WE TEST RESET IN NEUTRAL 


001036 5$ :BR= 
033777 167412 DEVRC ,@DEVAD RESET CONDITIONS MET? 
001432 of ;BR=YES 
104401 69% Ss TYPE ASCIZ STRING 
000424 BR 688 3GET OVER THE ASCIZ 

: <200>/ERRORGC! NO RESET IN NEUTRAL DETECTED./ 


012737 001706 #-1, TRIN sCANCEL FURTHER TESTING OF RESET IN NEUTRAL 
77 : acsr sCLEAR + DISCONNECT 
167300 #OOPS ,avECO ;RESET RETURN 
PSW LOWER PRIORITY 
RTS PC ZEXIT 
OBSERVE REQUEST INDICATORS 
: JSR PC,CONID GO CONVERT PORT ID 
SET TIMERS 


MOV #400,R1 
167250 : COVID,acsr ;LOOK FOR REQUEST 
23 BR=FOUND IT 


: TIME OUT 


tereteeress FEEE 


Re 


wN—— 
onww 


( 
( 
6 
6 
6 
4 
6 
6 
4 
6 


29 
30 
31 
32 
33 
34 
35 
436 


= 
~ 
xy 
So 


SSSSNE 


&£nvno 


E is 
012322 +3 TYPE ASCIZ STRING 

R 64$ :GET OVER THE ASCIZ 
<300>/ERRORSA:! NO REQUEST ACTIVITY DETECTED./ 


~~ wee 


IN 
OfnmnrN oO 


8 72 
167146 : COVID,aCcsR 3010 IT GO AWAY? 
2$ ;BR=NOT YET 
PC EXIT 


oooooeo ooocoeooo“oo 
eee ek et et ot od ot 
MOMVPUPIPIPD POMPOM PO POPOPTPoT 


SFU Wu 


&F 


FUNCT :DISPATCH TABLE FOR MULTIPORT TEST 
FUNCT2 
FUNCTS 
FUNCT4 
FUNCTS 
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1458 
1459 
1460 


5s 


-SBTTL BIPORT TEST IN D103 MODE 


177776 ULDT3: MOV #0,PSu sLOWER PRIORITY 
CLR acsr sSTART WITH A_CLEAR REGISTER 
001656 #10000, CYCLE 3SET SUB COUNT 
TRIG CLEAR TRIGGER 


ooo 
wo 
—_ ~ 
_ 
s3z 
o 


167076 18: seaeee. acsr 


SEESETER 


4 oooo ocoooooooooooo 


HS 
167066 : #2$,aveco 
167056 #101 ,acsr 

PC,WAIT20 60 WAIT 

oss 3s TYPE ASCIZ STR ING 


3GET OVER THE ASCIZ 
£300> /ERRORG! NO INTERUPT AFTER CONNECT REQUEST. CSR= / 


@CSR,-(SP) 73:SAVE @CSR FOR TYPEOUT 
::GO0 TYPE--OCTAL ASCII(ALL DIGITS) 


eet at a et ts we ss ss ot 


Poy +t? >? pf ot 


dat at oe 
& 


Ann 
www WO 
Wa 
S¥ee 
fr 


El ae 
—_ 
~“ 
ww 
- 


o72 

#STACK , SP sRESET STACK 

PSwW ;LOWER PRIORITY 
: TIMEOUT? 


218: ' SINDIACATE FIRST SLAVE 

001674 38: TINDIACATE FIRST MASTER 
SECTION 2 : WAIT FOR EXTERNAL REQUEST THEN RELEASE SWITCH 
sect2: 1 TRIN CAN WE TEST RESET IN NEUTRAL 


:BR= 
DEVRW ,@DEVAD LOAD DEVICE REGISTER 
* aracmmnmacins 30K? 


2 :BR= + 
,65$ isTYPE A SC1Z STRING 
4$ T OVER THE ASCIZ 
<200>/ERROR7A! COULDN'T LOAD EXTERNAL DEVICE REGISTER. ./ 


DEVAD,-(SP) +: SAVE DEVAD FOR TYPEOUT 
TYPE=-OCTAL ASCII(ALL DIGITS 

001706 MOV #-1, TRIN ciRNCEL FURTHER TESTING OF RESET 1" NEUTRAL 
166546 2: #1$.aVvECO SET RETURN 
021442 wo3¢. é Tote :SET DELAY FOR S SECONDS 

eis iz TYPE ASCIZ STRING 

BR 66$ T OVER THE ASCIZ 

SASCIZ <200>/ERROR7! NO’ iTTERNAL INTERUPT REQUEST SEEN. CSR= / 


MOV acsR,-(SP) 7:SAVE @CSR FOR TYPEOUT 


= Sscss 
— Toh — ~~ 
mr s£96Oe No 
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33GO0 TYPE--OCTAL ASCII(ALL DIGITS) 


72 
#STACK,SP SRESET STACK 
KONST , GOOD 
#30301 ,GOOD 
GOOD ,acsr SMAKE SURE I1T°S AN EXTERNAL REQUEST 
SECTOA BR=0K 
698 33 1YPE ASCIZ STRING 

$ GET OVER THE ASCIZ 
<200>/ERRORB! undipectep INTERUPT TYPE. CSR= / 


acSR,-(SP) 3;SAVE @CSR FOR TYPEOUT 
3360 TYPE--OCTAL ASCII(ALL DIGITS) 


a ey 
we 
33s 
~ 


37698: 
68s: 


a 
ae et oe et a 
NMweww ww O 


8 72 
SECT2A: 1$ yey TYPE SWITCHBACK 
B SECT2B GO DO PASSIVE RELEASE 
013246 1%: #240,SECT2A TURN SWI TCHBACK 
acsr ‘DROP SWITCH ACTIVELY 
PSW SLOWER PRIORITY 
acsr DROPP: 
74 3sBR= 
#20000 ,acsr sPICKED UP? 
76 3BR=NO 
SECT2C 360 TO EXIT 
#401,SECT2A 3 TURN SW] TCHBACK 
“i T ac ruee 


PAAMMMAUMMN A Vn mem 
ed ed ed etd eet ed 
—~ 
ofS 


~ 
Lees oe 
SeVeeseNes < ~ 
MN— 
oornm 


e@vec : 


PSU SLOWER PRIORITY 
PC,WAIT20 [60 WAIT FOR TIMEOUT 
eas 3 TYPE ASCIZ STRI 
GET OVER THE A ASC iz 
e3b0> /Ennond: NO TIMEOUT INTERUPT DETECTED. CSR= / 


166124 MOV acsRr,-(SP) 3sSAVE @CSR FOR TYPEOUT 
3:60 TYPE--OCTAL ASCII(ALL DIGITS) 


a ee a a tt et ed ed ot et 
uw 
ee 
~ 


ad re LL at 


—={MNVNVVMVNV~wr 
ww HK ONOVFUN "OOO NEUF VW 
yu 
ue 


FESEE 
ESSSSN 


-72 
001100 : #STACK SP : RESET STACK 
166106 acsr sMAKE SURE IT'S A TIMEOUT 
BM SECT2C R= 
013454 ons $TYPE ri STRING 


BR 6a8 ET OVER THE ASCIZ 
eASCIZ <200>/ERROR10! IWiERUPT NOT CAUSED BY TMO. CSR= / 


MOV acsRr,-(SP) z:SAVE @CSR FOR TYPEOUT 
TYPOC 3360 TYPE--OCTAL ASCII(ALL DIGITS) 
HALT 
BR 272 
SECT2C: CLR acsr sCLEAR CSR 
CLR PSw LOWER PRIORITY 


sSECTION 5 : SEND REQUEST EXPECT REJECTION 


105774 SECT3: MOV #1$,aVveECO SET RETURN 
165764 MOV #101 ,acse SEND REQUEST 


SS 


eF 
S 


SSLI FCI VFKUK=[SSS 
S¥SsS 


ono 


5 
5 
5 
5 
5 
5 
5 
5 
€ 
( 
( 
5 
( 
5 
5 
5 
5 
5 
5 
( 
( 
( 
5 
( 
5 
5 
5 
5 
5 
5 
5 
5 
5 


cee a et td ok et 
Pt at et ot et 
WwFwunN—o 
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BIPORT TEST IN DTO3 MODE 


021354 JSR PC WAIT 
013600 cet t20 


TYPE 638 YPE ASC 
BR GET OVER THE ASCIZ 
2:65$: .ASCIZ £300>/ERRORI1! Rt INTERUPT DETECTED. CSR= / 


648: 
acsR ,-(SP) 3:SAVE @CSR FOR TYPEOUT 
3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 


¥SFSSoFF Ee 

Sooooooooco coo — 
gereees Sos 
SSS SUF 


Pas 4 
001100 : #STACK SP sRESET STACK 
165660 acsr ; TIMEOUT? 
BAI 2s sBR=YES 
013702 : gr 3 TYPE ASCIZ STRING 


OVER THE ASCIZ 
€00> /ERROR12! lif ERUPT NOT CAUSED BY TRO. CSR= / 


165566 MOV acsRr,-(SP) 33;SAVE @CSR FOR TYPEOUT 
33G0 TYPE--OCTAL ASCII(ALL DIGITS) 


et aed ed eed od 8 Ut on =— 


se 


tet et at ot 
~ 
& 


——s 
oe 
& 


—h 
PAAR AWA AAW 


Pan 
soon 


SCLSSSFLLEE 


SCLEAR CSR 
SLOWER PRIORITY 
[1S TRIGGER SET? 
*BR=NO 
SFINISHED A SUB PASS 
TSECTION 4 : SEND REQUEST EXPECT CONNECTION 
SECT4: MOV #1$,avECO :SET_RETURN 
MOV #101 ,acsr 
JSR C,WAl 
TYPE 638 
BR [GET OVER THE ASCI2Z 
ASCIZ 23002 /Ennon13! wo INTERUPT DETECTED. CSR= / 


acsR,-(SP) 72SAVE @CSR FOR TYPEOUT 
2:60 TYPE--OCTAL ASCII(ALL DIGITS) 


ESEREE 


2 3 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
1 
1 


$sssey 


PPA A A AARAAMNAMAMNR A TAR AA 


S 


-2 
ASTACK, SP sRESET STACK 
001124 KONST , GOOD 


MO 

001124 #20301 , GOOD 

165400 GOOD ,acsR ; CONNECTED? 
sects R 


sBR=YES 
67% save ASCIZ STRING 
BR 66$ :GET OVER THE ASCIZ 
eASCIZ ©3002 /ERROR14 | COULD NOT CONNECT. CSR= / 


MOV acsr,-(SP) 33 SAVE @CSR FOR TYPEOUT 
TYPOC 3360 TYPE--OCTAL ASCII(ALL DIGITS) 
HALT 
BR 72 
sSECTION 5 :DETECT EXTERNAL REQUEST AND REJECT IT 


SECTS: TST TRIN :CAN WE TEST RESET IN NEUTRAL? 


Sxsl2 
m-NrNw 


3 


<8 and ot od od ot ot et 
BWrNAWUFWN 2~Owww 


— ot EQN NNN NNN St NO ot 
id 
— 


3 


3 


Mmrnrrnrrn — 
SENSS SECESSRNS 


—2 ss 
Sees 
S¥EEE 





ae 
SESS 5: 


nn Sy ah Ah th shan Aden ania sh sh ah* sh) Aten tent ant 
— ot 000 Oa ow at et 


SeeSSse 


ee ee ee eee et SS te St 
Oooooooocoocoooooooo 


PRORIPRIRG PIPING et et et ot ot ot oo 
NOW UNM —O OOO wrfur—o 
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1 
014264 001 BNE 3$ :BR=NO 

014246 tae 001572 165312 BIT DEVRC ,@DEVAD RESET CONDITION MET 

014254 001435 BEQ 3$ YES 

014256 104401 014264 TYPE 65% SST YPE ASCIZ STRING 

014262 000427 BR 648 OVER THE ASCIZ 

oscnel igs: SASC1Z <200>/ERROR1SA! COULDN'T DETECT RESET IN NEUTRAL./ 
014342 012737 177777 001706 MOV 8-1, TRIN SCANCEL FURTHER TESTING OF RESET IN NEUTRAL 
014350 012777 014466 165176 38: MOV #18, avEco SET RETURN 

014356 005037 177776 CLR PSY :LOWER PRIORITY 

014362 004737 021354 JSR PC wAlT20 : 

0146366 104401 014374 TYPE Si :rTPE ASCIZ STRING 

014372 000430 BR 3GET OVER THE ASCIZ 

si. i678: ASCIZ oSb0> /ennonts: wo EXTERNAL REQUEST DETECTED. CSR= / 
014454 017746 165072 MOV @csR,-(SP) s:SAVE @CSR FOR TYPEOUT 

014460 104402 TYPOC ':G0.TYPE=-OCTAL ASCII(ALL DIGITS) 
014462 HALT 

014464 000776 BR 72 

014466 012706 001100 1$: MOV #STACK,SP ;RESET STACK 

014472 013737 001702 001124 MOV KONST , GOOD 

014500 062737 030301 001124 ADD #30301 ,Gooo 

014506 023777 001124 165036 CMP GOOD ,acsR SENT. INT. 

014514 001433 BEQ 2$ 

014516 104601 014524 TYPE 698 $TYPE ASCIZ STRING 

014522 000423 BR 688 *GET OVER THE ASCIZ 

sane 5098: -ASCIZ <200>/ERROR16! UNEXPECTED INTERUPT. CSR= / 
014572 017766 164754 MOV @csRr,-(SP) s:SAVE @CSR FOR TYPEOUT 

014576 104402 TYPOC £:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
014600 HALT 

014602 000776 BR 72 

014604 012777 000101 164740 2s: MOV #101, acsr SCLEAR EXT. INT. 

014612 012777 022402 164734 MOV #OOPS , aVECO ;RESET RETURN 

014620 005037 177776 CLR PSW SLOWER PRIORITY 

014624 005337 001656 DI3SP: DEC CYCLE ;COUNT A SUBPASS 

014630 00140 BEQ 18 : BR=DONE 

014632 000137 012646 JMP SECT2 : CONT INUE 

014636 005737 001674 1$: TST ONOF F SFIRST MASTER OR SLAVE 

014642 001401 BEQ 2$ [BR=SLAVE 

014644 000405 BR MULEND [MASTER REPORTS ENDPASS 

014646 012737 177777 021366 2%: MOV #-1, TRIG SSET TRIGGER FOR SLAVE 

014654 000137 012646 JP SECT2 [CONTINUE SLAVE AT SECT2 

014660 005737 001674 MULEND: TST ONOF F :WAS THIS FIRST SLAVE? 

014664 001405 BEQ 1$ YES 

014666 012737 012422 021232 MOV #MULDT3,SRTNAD SET RETURN 

014674 000137 021134 JMP SEOP+2 :G0 DO ENDPASS 

014700 012737 014712 021232 1$: MOV #2$, SRTNAD [SET RETURN 

14706 137 021134 JP SEOP+2 G0 DO ENDPASS 

014712 004737 021354 2s: JSR PC ,WAIT20 iWALT 01 SECONDS 

014716 000137 012422 JMP MULDT 60 T 
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S3 


sMANUAL INTERVENTION TEST 
001564 : : CHECK re RODE 
sBR=D107 MODE 
016000 sSKIP OVER MANUAL MODE TEST IF D105 
164612 : sCLEAR CSR 
014746 s: TYPE ASCIZ STRING 


“GET OVER THE ASCIZ 
67 IN MANUAL MODE THEN TYPE <CR>./ 


sees 
wou 
£-o-~ 


_ 
F 
rmOoOnNWwow 


et at Se 
~~ NN 


FEES SSS ERAS. 
So oooooo 


ot 4 
SS 


OV (S$P)+,RO 33POP STACK INTO RO 
164514 : #2000 ,acsr sMANUAL MODE SET? 
BNE 28 sBR=VES 
678 zs TYPE ASCIZ STRING 
668 :;GET OVER THE ASCIZ 
<200>/ERROR1! MANUAL MODE (6.110) 1S NOT SET. CSR= / 


@CSR,-(SP) i7SAVE @CSR FOR TYPEOUT 
3:GO0 TYPE--OCTAL ASCII(ALL DIGITS) 


sEssckF Gee 
FEGESES FeveSN 
oSa— 
fra? i 


MANROD 360 TRY AGAIN 
#1,aCSR sTRY TO SET REQ IN MAN.MOD. 
tm :SET? 


3;BR=NO 
69% 3: TYPE ASCIZ STRING 
BR 68% ’ 3:GET OVER THE ASCIZ 
eASCIZ <200>/ERROR2! REQ BIT NOT DISABLED IN MANUAL MODE. CSR= / 


MOV @CSR,-(SP) 3;SAVE @CSR FOR TYPEOUT 
ot 3360 TYPE--OCTAL ASCII(ALL DIGITS) 
BR 23 sTRY AGAIN 


015272 ’ TYPE 71 sr TYPE ASCIZ STRING 
BR 0$ :3GET QvER THE ASCIZ 
sASCIZ <200>/CONNECT THIS DTO7 MANUALY THEN TYPE <CR>./ 


oooooceo coooocoe 
i 


EREEE 


SCoOooooooeoCco oeCoooeoo ocoooeoeceo ooo 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


ReFSOSEROS 


——§. et 
gs5- 
oe & ss 
ww Owww 
Ww 
frm 


OO AR AKAOOCO 
PROMIRIPRIPRIPIPIRD at wt et et et ow ot a 
FFRSF 


PMPARARAA 


Sse 
=) 


Pibowe 7s 


MO (SP)+,RO :;POP STACK INTO RO 
000001 164172 #1,acsR iis REQ SET Now? 


E 4 SBR=YES 
015370 738 3; TYPE ASCIZ STRING 
BR 23 *:GET OVER THE ASCI2Z 

~ASCIZ <200>/ERRORS! REQ. BIT NOT SET WHEN CONNECTED. CSR= / 


MOV acSR,-(SP) 3:SAVE @CSR FOR TYPEOUT 
TYPOC $360 TYPE--OCTAL ASCII(ALL DIGITS) 
HALT %$ 


BR 

4$: RESET RESET THE BUSS 

000001 BIT #1,aCSR REQ STILL THERE? 
BNE $ sBR=YES 

015504 TYPE ss TYPE ASCIZ STRING 
BR 3:GET OVER THE ASCIZ 


SEELSSE 


Tw 
mr 


A 
OnC ~HAHAOOO 


me Paes 


164074 


a a 
S3SSF SS. 
wry —OOo~ @ue~e~ Ow 
med eee a et ete a eet od dt od = Lee eect om 8 et oD ot oO ——? ot od 
WRAP URUR UR URUR 
a 3 eee 
ors. % 


~ 
—— 
7 
So 
La) 
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575s: sASCIZ <200>/ERRORG! RESET CLEARED REQ. BIT. CSR= / 

46 163772 "OV acsR,-(SP) i: SAVE @CSR FOR TYPEOUT 

0 T¥POC GO TYPE=-OCTAL ASCII(ALL DIGITS) 
BR 4$ 


015574 ; TYPE 77 :sTYPE ASCIZ STRING 
BR 76$ T OVER THE ASCIZ 
ASCIZ £300>/PUt THIS D107 IN PROGRAMMABLE MODE THEN TYPE <CR>./ 


— 
= oS 
—_ tat 
we we we 


Eng 
SEREEYS 


PARPAAMIAWA 


al ean 

tt ee 

~~ ee 
w 
~ 
~ 


3 


z 


ROV (SP)+,RO 33POP STACK INTO RO 
002000 #2000 ,acsr sMAN.ROD. GONE? 
PWROK sBR=VES 
015702 79% ss TYPE ASCIZ STRING 


78$ ::GET OVER THE ASCIZ 
<200>/ERRORS! MANUAL MODE (BIT10) DIDN'T CLEAR. CSR= / 


163560 MOV @CSR,-(SP) 3 SAVE @CSR FOR TYPEOUT 
3:60 TYPE--OCTAL ASCII(ALL DIGITS) 


oe 
oooo 
NNN 
wna 
rat 
= Skn 


$ 


tt OD eed aad a td Dd oO Le a 
Mmnviwm w 
RRR AE 3 
orn 


5$ 

acsr sCLEAR DEVICE 

ty 3 TYPE ASCIZ STRING 

64% OVER THE ASCIZ 
<200>/POWER UP ALL DTO7S THEN TYPE <CR>./ 


eat otete 
eh ot ae 
www OnOuw Fuww 


at at oe ee 
ee ot etd 


gg 238 


MOV (SP)+,RO 33POP STACK INTO RO 
163462 : #4000, aCSR sPWROK OK? 
2s tt 
016100 67% :sTYPE AS ClzZ ST oat 
R 66$ 3GET OVER THE ASCIZ 
<200>/ERRORG! PWR.OK (BITI1) NOT SET. CSR= / 


163376 MOV acsRr,-(SP) 33 SAVE @CSR FOR TYPEOUT 
3360 TYPE--OCTAL ASCII(ALL DIGITS) 


—s Pet a at et 
~ ee ge 
SI PISISSSS 


PWROK 
PSw LOWER PRIORITY 
PC CONNEC ONNE CT 


:60 ¢ 
698 is TYPE | ASCIZ STRING 
68$ *GET OVER THE ASCIZ 
<200>/POWER DOWN A BTO? SORT THEN TYPE <CR>./ 


Se&e 


Ce ed 
ab eet 


~ww 
Poor eee ee ed et et et 


SERENSS SHERSSFSS ons 


3 


MOV (SP)+,RO :;POP STACK INTO RO 
004000 163270 #4000, CSR :PWROK NOT OK? 


E :BR=O0K 
016272 71$ 3 TYPE ASCIZ STRING 

BR 0$ 3GET OVER THE ASC12Z 
sASCIZ <200>/ERROR7! puk’ OK (BIT11) NOT CLEARED. CSR= / 


163176 MOV acsr,-(SP) 33SAVE @CSR FOR TYPEOUT 
TYPOC 32G0 TYPE--OCTAL ASCII(ALL DIGITS) 


eze 


— a oe oe 
oo 
é 


— 
aA nnn 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
79 0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


oO a et a wed a 2? a ot eh ot ad ao DD SD ee a ot SO 


—O— — 
wAweww 
ooo 
ee! 
Pw 
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BR 23 
000200 163162 538: pit t emaaen a 


*o3s 33 1YPE ASCIZ STRING 
BR 23 “GET OVER THE ASCIZ 
-73$: <200>/ERRORB! LOS? SHARED BUSS. CSR= / 


$56: 
@CSR,-(SP) 4h oe @cSR FOR TYPEOUT 
33G0 TYPE--OCTAL ASCII(ALL DIGITS) 


SOTO 
on 


os 
Ct Lal al 
Ow ot oe 
feet et ee ee 


—— 
oa 
FES 

oe oooocoooeo oo 


PWROK 
ty 23 TYPE ASCIZ STRING 
BR OVER THE ASCIZ 
;75$: .ASCIZ <300>/RESTORE ALL’ DTO7S TO ORIGINAL STATE THEN TYPE <CR>./ 


tis: 
RDCHR 
MOV 


4$: 


gEeeEses 


NAR ARS 

Ow at ws 

Vwewwww 
oa 


(SP)+,RO 3:POP STACK INTO RO 


SWBPWF :CLR acsr SCLEAR DEVICE 
MOV asPURVEC,-(SP) 3;PUSH @#PWRVEC ON STACK 
#118, a#PURVEC N 


SELF 


000024 
162750 


ee d 


PRIORITY 
:sTYPE ASCIZ STRING 
3GET OVER THE ASCIZ 
<300>/ POWER DOWN THE SHARED BUSS THEN TYPE <CR>./ 


MOV (SP)+,RO ssPOP STACK INTO RO 
162650 #40006 ,acsr Su PWF SET? 


R=YES 
016712 67% 33 TYPE ASCIZ STRING 
BR 668 ;GET OVER THE ASCIZ 
<200>/ERRORB! SuB PwF (BIT14) NOT SET. CSR= / 


162562 "mov acsR,-(SP) s:SAVE @CSR FOR TYPEOUT 
2:60 TYPE=-OCTAL ASCII(ALL DIGITS) 


8 et ee et 


te 


1$ 
001100 : MOV #STACK, SP :RESET STACK 
- :POSITION STACK 
000024 MOV (SP)+, a#PWRVEC sPOP STACK INTO a#PWRYEC 
017016 69% 7s TYPE astiz st RING 
BR 8$ T OVER THE ASCIZ 
"ASCIZ <200>/ERROR9! TRAP THRU POWER PAIL VECTOR WHEN DISCONNECTED. (CSR= / 


68$: 
162430 MOV acsR,-(SP) s:SAVE @CSR FOR TYPEOUT 
TyPOC $:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
BR SWBPWF 
017136 ; TYPE 71s :sTYPE ASCIZ STRING 


BR OVER THE ASCIZ 
-ASCIZ <200>/ POWER UP SHARED BUSS THEN TYPE <CR>/ 


ee et a ee 
et a 


— 


7 
7 
7 
7 
7 
7 
7 
7 
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7. 
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ee te st oO ae et eh Ot at SO eed ot ow a 


www OO ~~ Owe wew NF UIN "Ow O~ he Y~ OrVNOAUF Swe rwn—o 
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3:32 BIPORT TEST IN DTO3 MODE 
708: 


Oe 
eS 
— 
= 


(SP)+,RO ::POP STACK INTO RO 
#0000, acs :10 17 CLEAR? 


SBR=YES 
017226 73$ +; TYPE ASCIZ STRING 
BR 23 [:GET OVER THE ASCIZ 
ji738: <200>/ERROR10! SUB PwF (BIT14) DIDN'T CLEAR. CSR= / 
162240 "MO acsR,-(SP) ssSAVE @CSR FOR TYPEOUT 
[:60 TYPE=-OCTAL ASCII(ALL DIGITS) 


FULESS F 
se 


— a es 
mRmNe— 
oo 


$3 


SAN NNN NA ROS 
ee 


ww ww 


a oe et 


aa 


016602 J 1$ 


ERREN=. 
162224 3$: C acsr ;CLEAR IT 
017560 000024 #PFVSEV ,asPURVEC 7SET RETURNS 
0204 162212 a 


PS 
PC, CONNEC 360 CONNECT 
162172 #i00,acSR .  :SET I.E. 
758 :;TYPE ASCIZ STRING 
BR 4$ °:GET OVER THE ASCIZ 
-:75$: .ASCIZ <200>/POWER THE SHARED BUSS DOWN THEN UP./ 


74$: 
MOV #11670, TOCK ;SET TIMER FOR 1 MIN. 
JSR PC WAIT 
TYPE 77$ sr TYPE ASCIZ STRING 
BR 6$ [:GET OVER THE ASC1Z 
piT7s: .ASCIZ <200>/ERROR11! NO EVIDENCE OF POWER FAILURE DETECTED. CSR= / 
acsR,-(SP) s:SAVE @CSR FOR TYPEOUT 
7:60 TYPE--OCTAL ASCIJ(ALL DIGITS) 


2538 
as 
FSR Orr 


= 
N= 


# 
~ 
Wise NENT 


et et an at ot os oe 
$e 
w 
SSNS ON 
Wwe NNN 


ot et 
~~ www 
FESE 
wa 
™~ 


NNR RASS 
&- 
¥¥ 


a 
ANN 
re 
~ 
nonN 


— 


7 
( 
‘ 
( 
7 
( 
7 


wMaow Oww~ @® 


3$ 


PFVSEV: MOV @CSR,BAD sSAVE CSR CONTENTS 
8 #400 ,BAD sMASK BRQ IF PRESENT 
#100,aCsR 


3 1.€. 
#1 ,a#PURVEC sPOINT TO POWER UP ROUTINE 
:1F YOU STOPPED HERE NO POWER UP TRAP OCCURED 
acsRr, TEMP2 sSTORE CSR 

sASSEMBLE GOOD DATA 


CORRECT AT PWR DOWN? 
sBR=YES 


sBR=YE 
3: TYPE ASCIZ STRING 
64$ 3:GET OVER THE ASCI2Z 
<200>/ERROR12! CSR INCORRECT @ POWER DOWN TIME. CSR WAS / 


BAD ,-(SP) ::SAVE BAD FOR TYPEOUT 
3360 TYPE--OCTAL ASCII(ALL DIGITS) 
017754 TYPE .67$ 2: TYPE ASCIZ STRING 
66$ 3;GET OVER THE ASCIZ 
<200>/1T SHOULD BE / 


001124 : GOOD, -(SP) ::SAVE GOOD FOR TYPEQUT 


ek a ee es ts ss es 4 Le 
~~~ 
FOP PF MAMAMNAMNMMNMNN 


—_ 
NA SNA A ANS NSS 
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— 

SA en 
—— = GS 
~wew Pw 
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MACYT1 (1052) _29-JAN-79 13:38 PAGE 12-43 
P11 25-gANe79 13:32 BIPORT TEST IN DTO3 MODE 


3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
001100 118: or sRESET STACK 


SPOSITION STACK 
017322 ERREN 
002554 2s: TEMP2,BAD :GET PWR UP DATA 
000400 #400, BAD [MASK BRO IF PRESENT 
020301 SUB #20361 , GOOD [CORRECT GOOD DATA 
001124 6000 .BAD : CORRECT @ PUR UP? 


sBR=YES 
020056 69% 3: TYPE ASCIZ STRING 
68$ a3 OVER THE ASCIZ 
<200>/ERROR13! CSR INCORRECT @ POWER UP TIME. CSR WAS / 


001126 MOV BAD, -(SP) ::SAVE BAD FOR TYPEOUT 
£:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
020156 71$ S: TYPE ASCIZ STRING 
R 708 ::GET OVER THE ASCIZ 
<200>/1T SHOULD BE / 


001124 GOOD ,- (SP) 7:SAVE GOOD FOR TYPEOUT 
33G0 TYPE--OCTAL ASCII(ALL DIGITS) 


11$ 
040000 : #40000 ,acsr :D1D SWB PWF CLEAR? 
4t ;BR=YES 


sBR=Y 
020226 73% 3: TYPE ASCIZ STRING 
2s 3:GET OVER THE ASCIZ 
<200>/ERROR14! SWB PWF (BIT14) DIDN'T CLEAR. CSR= / 


161240 MOV acsR,-(SP) ;:SAVE @CSR FOR TYPEOUT 
3:60 TYPE--OCTAL ASCII(ALL DIGITS) 


118 


020326 75$ 3: TYPE ASCIZ STRING 
020324 BR 4$ 3:GET OVER THE ASCIZ 
-°75$: . <200>/THIS DT07 TRAPS ON POWER FAIL!/ 
020366 748: 
020366 POSTSV=. 
001100 MO #STACK,SP :RESET STACK 
- sPOSITION STACK 
000024 (SP)+ ,a#PWRVEC 33;POP STACK INTO a@#PWRVEC 
021060 MANEND 


161142 001126 PWFSER: @CSR,BAD sSAVE CSR 

000400 8 #400,BAD sMASK BRQ IF PRESENT 

001702 s ASSEMBLE GOOD DATA 

060301 

001124 sCORRECT @PWR DOWN? 

1$ :BR=YES 

020452 ,65$ 2: TYPE ASCIZ STRING 
R 4$ :;GET OVER THE ASCIZ 

<200>/ERROR15! CSR INCORRECT @ POWER DOWN. WAS / 


001126 BAD, -(SP) ::SAVE BAD FOR TYPEOUT 


SNR RO eoOUN 
SSSSSl=2=38 


232 


> b> be be) 
88S 


KONST ,GOOD 
#60301 ,GOOD 
G00D ,BAD 


fe A a es et tt 
S228 o 
NRew~wwe wo wa 
-—-coooooo 
SSnecr 
eit 


_s 
S 
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—s 
at 
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020534 104402 260 a iScal ste ASCIICALL DIGITS) 
3@ 104401 020544 ,67% TETYPE AS CIZ STRING 
000406 66$ es OVER THE ASCIZ 
<200>/SHOULD BE / 


746 001124 "MO GOOD ,-(SP) s:SAVE GOOD FOR TYPEOUT 
[:G0 TYPE--OCTAL ASCII(ALL DIGITS) 


001100 : #0 #STACK,SP sRESET STACK 
= (SP) :POSITION STACK 
017322 


ERREN 
: #632, TOCK sSET TIMER FOR SSEC. 
021402 PC,WAIT ;GO WAIT 
160732 MO @cSR,BAD :SAVE CSR 
000400 126 #400.BAD [MASK BRO IF PRESENT 
060201 4 UB #60201, GOOD [CORRECT DATA 
001124 GOOD , BAD [CORRECT NOW? 

2s sBR=YES 
020654 Y 69S [;TYPE ASCIZ STRING 


688 :GEi OVER THE ASCIZ 
<200>/ERROR16! CSR INCORRECT AFTER POWER UP. CSR WAS / 
160610 "mov acsR,-(SP) £3 SAVE @CSR FOR TYPEOUT 
SrOCTAL ASCII CALL DIGITS) 


020752 71$ 3: TYPE "ASCIZ 
708 53661 OVER THE ASCIZ 
<200>/SHOULD BE / 


013746 001124 en) GOOD ,-(SP) ::SAVE GOOD FOR TYPEOUT 
104402 7:60 TYPE--OCTAL ASCII(ALL DIGITS) 
000000 
000674 11$ 
104401 021006 : 73$ :sTYPE ASCIZ STRING 
000423 R 723 [GET OVER THE ASCIZ 
<200>/THIS D107 INTERRUPTS ON POWER FAIL!/ 
000137 020366 : POSTSV 


et ed De ah Oo ot ne ts = Le os —_ 
_ Ft atta = 
—_ ae ce eet —s 
a) ed www ww 


_ 
Oo- On ~~ BOOwoww@cn 


— —_ 


et et Le 


—_ a 


OVER THE ASCIZ 


104401 021066 -% 038 :sTYPE ASCIZ STRING 
000420 BR GET 
ASCIZ y+ INTERVENTION TEST DONE./ 


000000 HALT 
000776 BR 272 


ieee 
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1829 ; NEWTST <<INSERT NEXT TEST HERE>> 
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-SBTTL END OF PASS ROUTINE 


Iii iii tit iif iti ii iiiiiiiiiiiiiiidy 
{ SINCREMENT THE PASS NUMBER (SPASS) 

s*TYPE “END PASS @XXxxx"" — MXXXX 1S A DECIMAL NUMBER) 

*1F THERES A MONITOR GO TO IT 

:*1F THERE ISN°T JUMP TO RESTRT 


SEOP: 


73ZERO THE TEST NUMBER 
7;ZERO THE NUMBER OF ITERATIONS 
SPASS oe hag | PASS NUMBER 
001214 :;DON'T ALLOW A NEG. NUMBER 
C)+ ; LOOP? 


SOOAGN 73 YES 
‘eerteneeten ; RESTORE COUNTER 


021237 Y SENDMG :TYPE “END PASS #”° 
001214 MOV $PASS,-(SP) tI SAVE SPASS FOR TYPEOUT 

7:60 TYPE--DECIMAL ASCII WITH SIGN 
021234 , SENULL >: TYPE A NULL CHARACTER 
000062 $GET42: a#42,R0 [:GET MONITOR ADDRESS 

SDOAGN [:BRANCH IF NO MONITOR 
7:CLEAR THE WORLD 
SENDAD: PC, (RO) [:60 TO MONITOR 
— ROOM 


SIACTV 
acPcys : RETURN 
SRTNAD: . RESTRI 
SENULL: .BYT :;NULL CHARACTER STRING 


377 000 E 1,-1.0 
042412 042116 SENDMG: .ASCIZ <15><i2>/END PASS #/ 
051501 020123 


SDOAGN: 
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( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


tc a a eB INS ce ce ek a ce ek at tk at tt FD 
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-SBTTL USER ROUTINES 


_ 
oo 
iv] 
w 


#240,2% sSET SWITCH 
acsr 3 ALL ~ CONNECTED? 


ibd ; CONTINUE 
#1,aCSR ; T 


#774 ,2% RESTORE SWITCH 
021306 765 8 1s [BR UNTIL CONNECTED 
021310 : PC EXIT 
021312 000004 #4, COVID SCONVERT SLAVE ID 
021 700 MOV CuRID RO : SAVE CURRANT ID 


get gett et ge 
SSGERE 


ESFELEE 


sSHIFT ID 
;COUNT DOWN TO ZERO 


sEXIT 
021442 WAITI0: , — 7SET CLOCK 
021442 WAIT20: #244, T0CK 7SET CLOCK 
J WAIT 


Raeee 


tt tt at ss es ss ot ns os tS 
PAA 
Rhee een~s 


000122 
021402 
000244 
021402 


oS 
—_ 
~ 


TRIG: 
021442 WAITOS: : A aaa sSET CLOCK 
021440 WAIT: TIMA, TICK :SET BASE TIMER 
1$: acsr 


000 
013 
005 


3 
s 


021440 
021442 
021442 


Sssss 
LV Took s deme td 
Us lal 
wn~u 
Le 


mr 
ow 


Seesee 
3 


TICK: 
021442 TOCK: 


021444 005000 SYNCUP: RO :SET DELAY TIME 
000400 ~ #0 
020000 160072 1$: : sBUSS ACTIVE? 


et ee et a os oe 
@o 
a be | 


;BR=NO 
sTIME OUT 


1 
021500 :: TYPE ASCIZ STRING 
R 64% ;;GET OVER THE ASCIZ 
<200>/SYNCRONIZATION FAILURE! CSR= / 


160006 "  Wov acsR,-(SP) s;SAVE @CSR FOR TYPEOUT 
$:G0 TYPE--OCTAL ASCII(ALL DIGITS) 


021476 
021540 


~~ 
ss 
Ww Rw we we 


021546 
021550 


- 
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28: 0 sRESET DELAY TIME 
000000 AO a 
020000 157764 3$: sBUSS ACTIVE? 
BNE 4% sBR=VYES 
3s TIME OUT 


ee Pek OS RP et 
Sessreee 
SRNSSOES 


S 


zs TYPE ASCIZ STRING 
6s 3:GET OVER THE ASCIZ 
<200>/MASTER PORT DIDN'T TAKE SHARED BUSS! CSR= / 


acsR,-(SP) 7:SAVE @CSR FOR TYPEOUT 
::GO0 TYPE--OCTAL ASCII(ALL DIGITS) 


~~~ @@cpo 
POLISSSSSEESES 


at 
-~ 
a 
+d 


2 

RTS PC EXIT 

sCONSTRUCT SEQUENCER 

MOV #PORTNO,R1 sSTORE ADDRESS OF DATA 
STEMP1R2 [SET TEMPORARY STORAGE POINTER 
#SEQ,RS TLOAD FIRST SEQUENCER ADDRESS 
EXPTCT [CLEAR PORT COUNT 
(R1)4, (R2)4 FILL TEMP 
EXPTCT :COUNT THEM 

SLAST ONE 

1$ :BR=NO 
177777 #-1 ,aR2 [TERMINATE DATA 


R LOAD DETECTOR 
001662 : #TEMP1 ,R2 RESET DATA POINTER 
: 1D FOUND? 


R1,(R2) 3 
5$ sBR=YES 
i :STEP AND TEST FOR LAST 


BR IF NO 
R1 SSTEP DETECTOR 
#4,R1 [CHECK FOR DONE 
2$ BR IF NOT DONE 
re) FINISH UP 
, ar2,(R3)+ [LOAD SEQUENCER 
000400 #400 ,aR2 ERASE ENTRY 


; CONT INUE 
001606 : EXPTCT CORRECT EXTERNAL PORT COUNT 
177777 “44 “eae ; TERMINATE SEQUENCER 
ROUTINE TO ASSEMBLE MENUS 
177777 001674 MASMEN: MOV #-1 ,ONOFF 3SET MASTER/SLAVE INDICATOR 

04 J PC .FLUSHM 260 FLUSH MENU 

#MENU RI :SET POINTER 
1$: Q@NEXENT,(R1)# [LOAD MENU WITH SLAVE ID 
#1,(R1)¢4 sLOAD FUNCTION #1 
PC ,STPNEX 3GET NEXT SLAVE ID 
1$ CONTINUE 


2$: PC ,STPNEX :G0 GET NEXT 1D 

BR $ sBR=NOT FINISHED 

177777 #-1,aR1 TERMINATE MENU 
001626 MO meee oe eoe MENUS 


SSeS SR asSsSsSE3 


Lode rt rts RRP PIPENIPNDNYDR) @@ A Bt BBB 
——-O900 
~~ tO — 
—~ 


Sauer 
BGSoak 


oo sss 

te 

tr 
4 Geer, $M poe pee toe a 
NSN eS Nt to 


1 
1 
1 
1 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


DOOOOOOOOOOOOOOSOOODODOOOONONOSO 


La de 
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3$: ONEXENT,CR1)¢ 
epee sLOAD FUNCTION #2 


ONOF F CLR MASTER/SLAVE INDICATOR 
PC ,FLUSHA G0 FLUSH MENU 
:SET tm? 


26 OV p 

157506 : —— -PORTNO 1S THIS 
= 

157476 QNEXENT ,(R1)¢ :LOAD SLAVE ID 
000003 #3,(R1)¢ ; LOAD yl 3 
022344 : PC ,STPNEX 760 GET NEXT ID 
1$ 3 T DONE 
G0 TO NEXT SET 
sLOAD FUNCTION 5 
B >: CONTINUE 
022344 : oe 360 GET NEXT ID 


360 CONTINUE 
177777 #-1,aR1 s TERMINATE MENU 
001626 —_— STORE MENUS 


sEXIT 
157424 : SNEXENT, PORTNO ;1S THIS ME? 
7$ ;BR=NO 
157414 og ast (R1)¢4 
000004 4, (R1)¢ 3LOAD FUNCTION 4 
022344 : PC. ;STPNEX GO GET NEXT ID 
BR 5$ ; CONT INUE 


C 
177777 #-1,aR1 : TERMINATE MENU 
a sSTORE MENUS 


C ; 
7$: QNEXENT,(R1)+ 
eae ro FUNCTION 5 


8 6 ; 
001622 SEQINT: #SEQ,SEQPTR 3SET POINTER TO FIRST ENTRY 
001624 at) #SEQ+2,NEXENT ;GET NEXT ENTRY 

MOV @SEQPTR.RS : LOAD RS 


RT PC 
000002 001622 SEQSTP: #2,SEQPTR ; STEP ———- 
157320 TS @SEQPTR sCHECK FOR END 


K 
BA SEQINT RELOAD IF DONE 
157312 ” @SEQPTR,RS 
001622 001624 SEQPTR,NEXENT  ;STEP NEXT ENTRY 
001624 #2 ,NEXENT 
157274 QNEXENT sOFF THE END? 
2s R=YES 


1$: PC 3NO! EXIT 
001610 001624 2%: ogee. oNEXENT CORRECT POINTER 


BR : 
000002 001624 STPNEX: oF — sSTEP_NEXT ENTRY 
157246 T$ oe NEXENT sOFF THE END? 


R= 
001610 001624 #SEQ ,NEXENT ; RESET 
157232 1$: See HEMT 89 BACK TO CURRENT D107? 


sBR= 
000002 #2,aSP :SET UP FINISHED RETURN 
2$: PC sEXIT 


SESELSSPELSSE CLES ELE SESE 
oo 


== 
os 
u~ 


4% 
157456 : QNEXENT ,(R1)¢ 
000005 #5,(R1)¢ 


ooco 
fw —_ 
NNnNnor 
SAN NOW 
S=SaNunwsy 4 So 
=—RANeae Fy wa 


ooo 
~ mwrr 
POMOPIPEPEPEPefoerfers 


—=—Omo—= —— 
MmMnNOrnrrTe 
~xNNTD 
WU MmNe 
“tat oe sy 


SSeessFEE 


SaNORFUN—S 

Se 

SERSINN 
NWUSoe 


= 


00000000 
SW 


00oo 
ae 
— oo-—- 
oi a 


~~~“ 
SoOonwuw 


5 
ive) 
s= 
_ 
nm 
nn 


MOPOPEPTPYPOPof~oerys 


~~) 
o 
wm 
Mroropofoerfsefnonys 


Se 


ow 
NOMYUNUNNUNN eS 


1 
1 
1 
i 
i 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 


S33S882 
Sooooeooo 


o— 
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3333 


022402 : asP,BAD :SAVE ERROR PC 
022406 o38 33 TYPE ASCIZ STRING 


022412 :GET OVER THE ASCIZ 
©300>/UNEXPECTED® INTERUPT FROM 0107 AT ADDRESS.../ 


022472 
BAD ,-(SP) : 3 SAVE BAD FOR TYPEOUT 
33:G0 TYPE--OCTAL ASCII(ALL DIGITS) 


NM = 
EEE et ee 
a Os es 
—_ ~wNwe ww 
~ 
~ 
oon 


7SET POINTER 
1 3SET FLUSH COUNT 
1$: MOV #-1,(RO)+ sFLUSH WITH -1 
R1 ; COUNT 
ibd : CONT. 
R PC sEXIT 
FLUSHP: #0103 ,R0 sLOAD POINTER 
MO ee :SET COUNT 
8-1, (RO)+ ; FLUSH 


(RO)+ 
1$: MOV #-1,(RO)+ sFLUSH WITH -1 
R1 ; COUNT 


1$ 3 CONT 
PC ZEXIT 


Seeearax 
§ s2gecegssece 
FESSTSSLASSSS 


g 


20 
20 
20 
20 
20 
20 
20 


#340,PSW sRISE PRIORITY 
000001 #1,aCsR ; CONNECT 
156754 : acSR,BAD 
000400 #400,BAD 

& :BR=F OUND 
100000 #100000 ,BAD :D1D WE TIME OUT? 
177777 et D103 :INDIACATE D103 MODE 
001564 sTNDIACATE D107 MODE 
001126 BAD, RO SSAVE IMAGE 
177703 #177703,R0 sSAVE ONLY RQO-3 

[CONVERT RQ BIT 


SSsoo 
RODQIR ae nt et we ot ot | 2 ot 


MO OOO VFwWwR—OoO 
r tre tr eee | 
Wwouwooom 
M=NMoNM~nNNRTN 


i=] 
—_ 
NS NUNO NN 


WMS Win - 


MVINOVUNINOVNN 
ss 


Seecaes 


sBIT SET? 
sBR=YES 
sSTEP INDIACATOR 


ee 


RO 
000004 ‘ 3100 HIGH? 
$ 3BR = 


| 6 =NO 
022704 658 3 TYPE ASCIZ STRING 
BR 64% :GET OVER THE ASCIZ 
~ASCIZ <200>/ERROR! BRQ' DETECTED WITHOUT ANY RQ. BIT SET. CSR= / 


® 
——= © 
orm 


eee Ne et 
—— 
3 
So 
wut 


SF 
uwUo 


022702 
022772 


Ce td 
—o ad 
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013746 001126 MO BAD, -(SP) ::SAVE BAD FOR TYPEOUT 
2 5:60 TYPE--OCTAL ASCII(ALL DIGITS) 
, [FATAL ERROR BRO SEEN BUT NO RO 
001574 : R2,PORTNO [LOAD PORT IDA 
RO ;MAKE SURE ONLY ONE RQ IS PRESENT 
E as *BR=OK 
023024 678 s;TYPE ASCIZ STRING 
BR 668 °:GET OVER THE ASCIZ 
<200>/ERROR! MORE THAN ONE RQ. BIT SET. CSR= / 


001126 , BAD,-(SP) ::SAVE BAD FOR TYPEOUT 
[:G0 TYPE--OCTAL ASCIICALL DIGITS) 


FoF 


oF 


CT iad 
Ver beet 33 
WUNewrwOwww~r VD 
So 
ee ee ee aed ad oo 
SRS8S Nerno 


72 
8$: : sCLEAR AND DISCONNECT AND EXIT 


Re sake 
_—— a 
one 


SS38ss 


177776 = DTIME: sLOCK OUT INTERUPTS 
TIA sCLEAR TIMERS 
® sCLEAR DEVICE 

18: * sMAKE SURE IT'S CLEAR 


sSET REQ 
156376 2s: : :TMO SET? 


001676 } 
023172 ss TYPE ASCIZ STRING 


64$ 3;GET OVER THE ASCIZ 
<200>/ERROR! TIMING TOO LONG! / 


$s 
oo 


—— 
~ 
ANY 


38 


a | 
—O~nwnr 
Werwe 


064 
2 
206 


ad ced od 


177776 3$: PSw 
000001 156312 #1,aCSR 
156306 4h: — 


001700 TIMB sCLAER WATCHDOG TIMER 
000340 177776 #0 #340 ,PSW IORITY 
66 acsr REQ 


1562 

156262 : ae 

001700 ; tine 

023306 678 ss TYPE ASCI2Z STRING 


66$ 3;GET OVER THE ASCIZ 
<200>/ERROR! WATCHDOG TIMING TOO LONG! / 


sLOWER PRIORITY 
3 CONNECT 
3: CONNECTED? 


Mw 


o— 
NWN 


rr 
@los 
=. — —— © 
php 
Fs =< ~UuUnoOUnN™ 
SS NSS SSS NSS 


001676 : MO TIMA,RO :COMPARE TIMING FOR PROPER RATIO 
001700 TIMB,R1 


060031 #25. ,R3 
: RO,R2 


SS 


SSESE 


sMULTIPLY TIMA BY 25 


mm 
~“ 
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7 72 
a7 BNE f% sBR=NOT DONE 
7 8$: Hy sDIVIDE TIMA BY TIMB 
DONE? 
3BR=NO 
3100 LOW? 
3sBR=NO 
ss TYPE ASCIZ STRING 
$ 3:GET OVER THE ASCIZ 
<200>ZERROR! WATCHDOG/REQUEST TIMER RATIO TOO LOW! 


ee ee ee WN =— 
as 
e- 


Poa 4 
7 3100 HIGH? 

P = 
023520 718 ss TYPE ASCIZ STRING 


0$ 33 OVER THE ASCIZ 
<200>ZERROR! WATCHDOG/REQUEST TIMER RATIO TOO HIGH!2 


02 

023420 

023500 
500 

023502 
504 

02 

02 

02 


510 
su 
516 


ee a 


72 
155742 : CLEAR AND DISCONNECT 


00 
1) 
1) 
1) 
01 
02 
03 
04 
05 


sPROGRAM PARAMETER INPUT ROUTINE 


177777 025754 : #-1,PARFLG :SET PARFLG . 
022526 PC, FLUSHP [G0 FLUSH OUT PARAMETER BLOCK 
023632 658 [:TYPE ASCIZ STRING 
648 “GET OVER THE ASCIZ 
<200>/D0 YOU WANT TO CHANGE THE DEVICE ADDRESSES?(Y OR ND/ 


RRM NIP Peron fener 


one 


MO (SP)+,RO sSTORE CHAR. 
025756 MOVB RO,.ECHOB 


025756 ,ECHOB 
000131 #'y,RO YES? 
10$ *BR=NO 
023750 ,67$ ::TYPE ASCIZ STRING 
BR 6$ 3 VER THE ASCI2 
~ASCIZ <200>/1N THE FOLLOWING THREE PRINTOUTS TYPE THE NEW DATA OR O IF NO CHAN 
024066 “TYPE —_, 698 sr TYPE ASCIZ STRING 
R 68$ :GET OVER THE ASCIZ 
<200>/DEVICE ADDRESS= / 
001552 MOV CSR,-(SP) s:SAVE CSR FOR TYPEOUT 
7:60 TYPE*-OCTAL ASCII(ALL DIGITS) 
032603 TYPE SPACE 
($P)+ RO :STORE INFO 


RO, SBASE 


MrPererenreterys 
—Co0——0— 
SeSke 


Re 
SS 
—— 


3 


™ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
( 
c 
( 
1 
1 
1 
1 
1 
1 
1 
( 
( 
( 
1 
( 
i 
( 
1 
( 
1 
1 
1 
1 
1 
1 


SUE UNeS ~ Ow~w~w~ Owe ~ Ons vVlutvwrvwv—O ~N 


PoPenrePeroerys 
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104401 TYPE s: TYPE ASCIZ STRING 
11 BR 0s = :GET OVER THE ASCIZ 
piz's: «ASCIZ <200>/DEVICE vECTOR= / 
; SVECT1RO 
#177600,R0 
RO,-(SP5 
SPACE 
(SP)+,RO 
128 
RO,R1 ;SAVE IT TEMPORARILY 
146 : JUMP OVER NEXT TWO LINES 
S$VECTI,RI SSAVE OLD VECTOR ADDRESS 
#177400,R1 [MASK OUT JUNK 
73$ sr TYPE ASCIZ STRING 
423 [:GET OVER THE ASCIZ 
<200>/BREAK LEVEL= / 
$VECT1,RO 
#177400,R0 
RO,-(SP) ::SAVE RO FOR TYPEOUT 
3:60 TYPE--OCTAL ASCII(ALL DIGITS) 
, SPACE 
(SP)+,RO 
13$ 
RO 
R1,RO 
RO SvECT! 
7 #377, $VvECTI 
6 R1,SVECTI 
START 


TOR — 
OnNwwwwa 
So 


£F 


3:SAVE RO FOR TYPEOUT 
3:60 TYPE--OCTAL ASCII(ALL DIGITS) 


Sif 


F 


st st 
a! 


RRM RIRePeRN —fTOTy 
SILL SLEGFULS SIS 
S 23 
$= 
o= = 


=FS 


( 
( 
( 
{ 
1 
1 
1 
1 
( 


39 
40 
4 
42 
1) 
43 
4d 


Sense 
RessSeeFFF 
“SSSSs 


00037 


tt 3 


22556 JSR PC ,DMODE :G0 GET MODE AND IDA 
23120 PC DTIME :G0 GET DEVICE TIMING 
001564 0163 SWHAT MODE? 
208 :BR=DT07 
024360 75$ [;TYPE ASCIZ STRING 
BR 743 $:GET OVER THE ASCIZ 
-ASCIZ <200>/THIS D107 18 IN DTO3 MODE./ 


BR 1$ sCONTINUE AT 1$ 

024424 "TYPE 77 s:TYPE ASCIZ STRING 
BR 6$ *:GET OVER THE ASCIZ 
.ASC1Z <200>/THIS D107 1$ PORTA / 


MOV PORTNO,-(SP) :3SAVE PORTNO FOR TYPEOUT 
TYPOC 3360 TYPE--OCTAL ASCII(ALL DIGITS) 


60 : 
024460 024466 TYPE 19 3: TYPE ASCIZ STRING 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
é 
2 
2 
2 
2 


$333 
o—rrnwv 


www OO~NO WF WN 


mr 


024422 


024452 
001574 


nN 


Nm 
me RR as i i in i i at as 


wa 


~~ ww Pw www 
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BR 78$ ::GET OVER THE ASCIZ 
579: .ASCIZ <200>/TYPE THE ADDRESS OF AN EXTERNAL DEVICE REGISTER ON THE SHARED BUSS 


001566 MOV (SP)+ ,DEVAD sSTORE IN DEVAD 
23 sSKIP OVER NEXT TWO QUESTIONS IF NO DEVICE 
024622 81% s3 TYPE ASCIZ STRING 
$ 33GET OVER THE ASCIZ 
<200> % TYPE AN OCTAL MASK OF READ/WRITE BITS IN ABOVE DEVICE REGISTER... 


RIRITRoIT 
et at 
Swoubebooce 
—OoOo— 
sesce 8 
cure 


g 


001570 MOV (SP)+ DEVRY sSTORE BIT PATTERN 
024742 83$ ss TYPE ASCIZ STRING 
R 2s 3;GET OVER THE ASCIZ 
<200> % TYPE AN OCTAL MASK OF RESET-CLEARABLE BITS IN ABOVE DEVICE REGIS 


rorr 
o 

Sim 

—O-— 
—_ 
Sy 


esse 


001572 at) (SP)+ ,DEVRC sSTORE BIT PATTERN 
001564 0103 3NO NEED TO CONTINUE IF D103 MODE 
7$ 3BR=DT03 


025076 ; 85$ s:TYPE ASCIZ STRING . 
BR 843 °:GET OVER THE ASCIZ 
<200>/HOW MANY OTHER PORTS ARE THERE 10 BE TESTED?/ 


Mmrorerer 
OP OO ed etd etd ed td —=—e, FR GP eh et ed gm, Ge 


025074 
025154 


PAR es + Ry ee PR en pm Nm eps 


ooooooo 


Mr Rorererererer 
ww Ww 


001606 MO ei aaa sSTORE EXTERNAL PORT COUNT 


001576 : #EXPRT1,RO [SET POINTER 
001606 EXPTCT,RI 


025202 87% s3TYPE ASCIZ STRING 
BR 6$ 3;GET OVER THE ASCIZ 
eASCIZ <200>/TYPE IN EXTERNAL PORT ID../ 
ROOCT 
MOV (SP)+,(RO)+ sSTORE IT 
DEC Ri :COUNT IT 

BNE 6$ sCONTINUE LOAD IF NOT DONE 


025254 ’ TYPE 898 sr TYPE ASCIZ STRING 
BR 8s °:GET OVER THE ASCIZ 
~ASCIZ <200>/SELECT TEST. (0 FOR HELP MESSAGE)/ 


Sescs 
—_ 


Mrorerrr 
—— 


— 
— 3 
o— 


Mrorerers 
N— WON 


Ps 
= 
™ 


(SP)+,RO 
BNE 
032605 sSELMS 
000004 : #4 ,RO :VALID TEST? 
025350 918 s:TYPE ASCIZ STRING 
BR 0$ :GET OVER THE ASCIZ 
»ASCIZ <200>/1NVALID SELECTION!/ 


BR 7$ 


PEPQPIPshohIPIP 
Law) 
Wr 
Ly} 
——O0-00 — 
SeNsesee 
seosese 
Nm—oO rm Le 


1 
1 
1 
1 
1 
1 
( 
( 
( 
( 
1 
1 
1 
1 
1 
( 
( 
( 
( 
1 
1 
1 
1 
1 
1 
1 
1 
( 
( 
( 
1 


™ 
Ome os 
Www we 
oo 

s 

~“ 

™ 

& 
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37 o aris cite 000002 9$: pa os —* 
*BR= 
° 001606 
001564 
sBR=YES 
025426 633 zs TYPE ASCII ay. a, 
<200>/CAN NOT RUN THE MULTIPORT TEST WITH ONLY ONE PORT! / 


ee P aad ed 


200 
2201 
2202 


Ow —. 
~ 
ocooooocoeo 
POPIREPS 
FFF 


Www 
So 
~ 


Sraw PELELES 


RNA A 


7$ 
og ,R0 sRULTIPORT TEST? 
i :sTYPE ASCIZ STRING 
T OVER THE ASCIZ 
<300>/ THE D107 WITH THE LOWEST PORT# MUST BE STARTED LAST WHEN RUNNING/< 


Bannan * 
SS 


Ber 
ssee 
3? 


os 
$8 


OL RO 
025762 MOV TXC(RO) , (SP) 
025676 hy 23 TYPE ASCIZ STRING 
BR :GET OVER THE ASCIZ 
ge <300>/TYPE <CR> WHEN READY TO CONTINUE TEST./ 


2 
2 
2 
2 


( 
( 
U 
2 
2 
2 
2 
( 
( 
C 
2 
2 
2 
2 
2 
2 


SFe 


om 
=3 
Ss 


(SP)+,R0 
PC 


EXIT 
PARFLG: :PARAMETERS PRESENT FLAG 
ECHOB: . -  0,200,0 sECHO BYTE 


TX: 


MRRP rrernrrn 
ed ed ed ed ed ad td ed ed 
BNO UFWNMew~wwDO 
~™ 
So 
~ 


mr 


5766 
028770 


025772 
(SP)+,RO :;POP STACK INTO RO 


Pt 23 TYPE ASCIZ STRING 
:GET OVER THE ASCIZ 
©300>/UNEXPECTED® TRAP TO VECTOR 4 FROM../ 


RO,-(SP) 3:SAVE RO FOR TYPEOUT 
3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 


001710 START 
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-NLIST AC,AD,CND 
SBTTL TYPE ROUTINE 


peerenerececerrecereererereererererereeerrenereereeeeereeerenett 

: #ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 

s*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

;*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

: sNOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


CAL 
ze1) USING A TRAP INSTRUCTION 
TYPE oMESADR ::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


STPFLG 321S THERE A TERMINAL? 

1$ :3BR IF YES 
; HALT HERE IF NO TERMINAL 
; LEAVE 


: ::SAVE RO 
000002 MOV a [:GET ADDRESS OF ASCIZ STRING 
000001 WAPTENV,SENV : RUNNING IN APT 
E 62$ ::NO0,GO CHECK FOR APT CONSOLE 
000100 #APTSPOOL , SENVM ::SPOOL RE SSAGE TO APT 
E 62$ CHECK FOR CONSOLE 
026130 RO,618 SSETUP MESSAGE ADDRESS FOR APT 
026350 J PC SATY3 3: SPOOL MESSAGE TO APT 
618: 0 [MESSAGE ADDRESS 
000040 001227 : #APTCSUP.SENVR :ZAPT CONSOLE SUPPRESSED 
608 S:YES,SKIP TYPE OUT 
(RO)+,<(SP) $:PUSH CHARACTER TO BE TYPED ONTO STACK 
4$ ::BR IF IT ISN'T THE TERMINATOR 
(SP)+ Sr] TERMINATOR POP IT OFF THE STACK 


—Ooo 
Rat 


00 
13 
00 


So 
_ 
Sr 
So 
ANYIN oe 


Sssss 


(SP)+,RO 


SSuSRstesees 
WM =MmOrnns 

= 

o 


—_ 


ANS 
nO 


026336 


026272 
001156 


001154 
000001 
026272 


#2, (SP) 
#HT, (SP) 
8$ 
#CRLF , (SP) 
5$ 

(SP)¢ 


SCHARCNT 
2$ 


PC ,STYPEC 
4 aaa 


2 

SNULL ,-(SP) 
1(SP) 

6$ 

PC, STYPEC 


> RESTORE RO 

; SADJUST “RETURN PC 
::BRANCH IF <HT> 
:;BRANCH IF NOT <CRLF> 


:;POP <CR><LF> EQUIV 
:: TYPE A CR AND LF 


23 CLEAR CHARACTER COUNT 
T_NEXT CHARACT 
7:60 TYPE mt CHARACTER 
3348 1T TIME FOR FILLER CHARS .? 
F_NO GO GET NEXT CHAR. 
::GET # OF FILLER CHARS. NEEDED 
7:AND THE NULL CHAR, 
+ DOES A NULL NEED TO BE TYPED? 
:BR IF NO--GO POP THE NULL OFF OF STACK 
::G0 TYPE A NULL 
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SYNE ORNNO 


AN 
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026240 105337 026336 
026244 000770 


152652 
000015 
026336 
000012 


152644 
000002 


026606 
026604 


DECB 
BR 


sHORIZONTAL TAB 


8$: 
9S: 
BR 
STYPEC: 
BP 


1$: 


INCB 
SCHARCNT: .WORD 


STYPEX: RTS 


AOVB 
JSR 


SCHARCNT 
7$ 


PROCESSOR 
#" , (SP) 
PC, STYPEC 
#7 .SCHARCNT 
(SP)+ 

2$ 

STYPEC 
2(SP) ,aSTPB 
#CR,2(SP) 
1$ 

SCHARCNT 
STYPEX 

#LF, se csr) 
$TYP 

(Pepe 


PC 


;:D0 NOT COUNT AS A COUNT 
; SLOOP 


7;REPLACE TAB WITH SPACE 
tla A SPACE 

ANCH IF NOT AT 

STOP 


: POP SPACE OFF STACK 
T_ NEXT CHARACTER 
::WAIT UNTIL PRINTER 1S READY 


3;LOAD CHAR TO BE TYPED INTO DATA REG. 
731S CHARACTER A CARRIAGE RETURN? 

; BRANCH IF NO 

— CHARACTER COUNT 


31S CHARACTER A LINE FEED? 
: ;BRAN CH _IF YES 


;COUNT THE CHARACTER 
CHARACTER COUNT STORAGE 


-SBTIL APT COMMUNICATIONS ROUTINE 


se PRAHA AAAAH EKA KAAAA KEE KeA TA eeAeAeAAAKKKAKeReHKeeeeeKAReeeeneee 


#1, SFFLG 
#1, SMFLG 
SAT 


::TO REPORT FATAL ERROR 
2:10 TYPE A MESSAGE 


“suUunNn~n 


ATYC 
026606 #1,SFFLG 3310 ONLY REPORT FATAL ERROR 


RO,-(SP) : sPUSH RO ON STACK 
R1,-(SP) eke R1_ ON STACK 

_~ + SHOULD» TYPE A MESSAGE? 
#APTENV,SENV :JOPERATING UNDER APT? 


#APTSPOOL , SENVA 3? SHOULD SPOOL MESSAGES? 
38 NOT: BR 


-—9ooOo -— 
333 _ 


n—w 


001226 
001227 


~Nn—NONC oO 


S=SSSl8usns 
Sox ~ $ RIA 
oconu 


~~ 
ws mute 
463 Sassss 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
2 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


Oe tt tt tk a ct tt IN kk ce ee et et td 
Ne Ne Ne ee ee ee ee Ne er ee ee ee ee ee et ee Se Se er ee ee ee ee ee ee ee ee es ee we ea 


NNO 


000002 
177776 


026060 


000004 


001206 


026516 
000004 


24(SP) RO 
#2,4(SP) 
SHSGTYPE 


RO, SMSGAD 
(RO)+ 


23 
eee RO 


RO, SMSGLGT 
ee - SASGTYPE 


a4(SP) ,4$ 


a 4 (SP) 
177776, (SP) 
PC, STYPE 


3:GET MESSAGE ADOR. 
BUMP RETURN ADDR. 
:3SEE IF Fone w LAST XMISSION? 


::PUT ADDR IN MAILBOX 
33FIND END OF MESSAGE 


+3 SUB START OF MESSAGE 

:GET MESSAGE LNGTH 'N WORDS 
::PUT LENGTH IN MAILBOX 
::TELL APT TO TAKE MSG. 


:3PUT MSG ADDR IN JSR LINKAGE 
uAP RETURN ADDRESS 

::PUSH 199776 ON STACK 

[:CALL TYPE MACRO 
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026516 4S: 
108: SFELG s:SHOULD REPORT FATAL ERROR? 


sENv S:RUNNING UNDER APT? 
118: SMSGTYPE S:FINISHED LAST MESSAGE? 
=:1F NOT: WAIT 


Q4(SP),SFATAL  ::GET 
#2,4(SP) ::BUMP RETURN ADDR. 
sr TELL net 0 TAKE ERROR 


EEE PPP ORO POA OP hme 
IO at at et et et at ot ot ot ot = = 


3:CLEAR MESSAGE FLAG 
3:POP STACK INTO R1 
(SP)+,RO 3:POP STACK INTO RO 
PC 7 RETURN 
SMFLG: 0 33MESSG. FLAG 
SLFLG: 0 3;LOG FLAG 
SFFLG: 0 sc FATAL FLAG 


-EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


ee ee ee ee ee ee ee ee ee ee ee ee er ee 


pp eeeerererererrererererrerererieeerrereeereeeeeererenereeeeeeees 
s*THIS ROUTIME WILL READ AN OCTAL (ASCI1) NUMBER FROM THE TTY AND 
:*CHANGE IT TO BINARY. 


3 *CALL 


ad RDOCT 7:READ AN OCTAL NUMBER 
he RETURN HERE ;:LOW ORDER BITS ARE ON TOP OF THE STACK 
:* 3:HIGH ORDER BITS ARE IN SHIOCT 


$RDOCT: (SP) ,-(SP) ::PROVIDE SPACE FOR THE 
000004 000002 MO 4(SP) ,2(SP) a3 T NUMBER 
RO,-(SP) :3PUSH RO ON STACK 


R1,-(SP) 
R2,-(SP) 33P 

>;READ AN ASCIZ LINE 
(SP)+,RO 3:GET ADDRESS OF 1ST CHARACTER 
4 3:CLEAR DATA WORD 
(RO)+,-(SP) 3;PICKUP THIS CHARACTER 
3$ 3:1 ZERO GET OUT 


3284 


—ooe 


o-00000 
Per 


g=ss2 
Ssesssesnssss 


~_o 
=—o 


177770 ::STRIP THE ASCII JUNK 
::ADD IN THIS DIGIT 


;;L00 
;:CLEAN TERMINATOR FROM STACK 


Sersssses 


S 
w 
pe) 
™ 
o 


es 


( 
( 
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( 
( 
( 
( 
( 
( 
( 
( 
2 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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( 
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1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
32 
1) 
2) 
1) 
1) 
1) 
1) 
1) 
) 
1) 
1) 
1) 
3) 
3) 
3) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
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OTS 33SAVE THE RESULT 
:3POP STACK INTO R2 
::POP STACK INTO RI 

(SP)+,RO ::POP STACK INTO RO 


RTI > sRETURN 
026710 000000 SHIOCT: .WORD 0 : HIGH ORDER BITS GO HERE 
-SBTTL TTY INPUT ROUTINE 


, tteerererrererererererererererererereeeeeereneeneereereereneeee 


* ENABL LSB 


000012 
026710 


Wwe "ww 


2 


( 
a 
( 
( 
( 
2 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
t 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
i 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


seterereeresterreerererrrrererererekereneerenreneeaeaareneetenee 
+ SSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
S*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL 
S*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
* eWHEN OPERATING IN TTY FLAG MODE. 
026712 022737 000176 001140 $cKkSuR: #SUREG, SUR 3318 THE SOFT~SUR SELECTED? 
001074 NE 15$ ANCH IF NO 
105777 152216 astxs RE? 
100071 15$ F NO, DON'T WAIT AROUND 
152212 asTKB,-(SP) SI SAVE THE CHAR 
177600 #°C177, (SP) [:STRIP-OFF THE ASCI1 
000007 #7, (SP)+ ::1S IT A CONTROL G? 
15$ 3:NO, RETURN TO USER 
001134 SAUTOB,#1 TARE WE RUNNING IN AUTO-MODE? 
15$ ::BRANCH IF YES 


027437 T -SCNTLG Hy THE CONTROL-G (*G) 

027444 :  SASUR 2: TYPE CURRENT gi 

000176 MOV SWREG,-(SP) 23SA * SWREG FOR TYPEOUT 
TYPE--OCTAL ASCII CALL DIGITS) 

027455 FOR NEW SWR 


027004 152134 : 
027010 100375 7$ HIF NOT TRY AGAIN 


027012 117766 152130 a$TKB,-(SP) ::PICK UP CHAR 
027016 177600 #*C177, (SP) SMAKE IT SBT ASCII 


027022 000025 : ie aes 2:18 1T A CONTROL-U? 


E ;BRANCH IF NOT 
027432 . 7: YES CONTROL-U (“U) 
000006 : #6,SP 33 E OUS INPUT 
3;LET’S TRY IT AGAIN 


So 


000015 : 718 17 A <CR>? 
BRANCH IF NO 
000004 YES, a", ES FIRST CHAR? 


; BRANCH 
000002 152054 72 SAVE NEW SUR 
000006 118: P CLEAR UP STACK 


ett eet re i i tie ded, bd a 


ak at a tt es et wet a et et ed ed cd et et IIA) at tt et at tt tk tk tk et ts et ot ot PU) = Cs PI 


S—Sss 
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001203 : SCRLF s:ECMO <CR> AND <LF> 
001135 000001 SINTAG, #1 : RE-ENABLE TTY KBD INTERRUPTS? 


000100 152032 ROV «#100, a8 TKS ::RE-ENABL TTY KBD INTERRUPTS 


026272 : PC, STYPEC 
000060 (3) 8 960 


ee ee nd ae 


wewwwe wwe we wwe yey ee yee eee ewe ew eee 


000067 


HAR OVER TO MAKE 
ONE. 


ROOM FOR NEW 
17$: 2(SP) $ TKEEP COUNT OF CHAR 
ee 33SET IN NEW CHAR 


i3GET THE NEXT 

0271 18$: SQUES si TYPE ?<CR><LF> 

027172 000720 BR 508 ::SIMULATE CONTROL-U 
.DSABL LSB 


set eerererrerrererererrerereerrereeeeeaereeeneKeeekeeeenerereAeees 


ZaTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


ROCHR :: INPUT A SINGLE etree FROM THE TTY 
RETURN HERE 3 CHARACTER IS ON THE STACK 
::WITH PARITY BIT STRIPPED OFF 


027174 (SP) ,-(SP) : :PUSH — THE PC 


000002 ” MOV 4 (SP) ,2(SP) 
astKs 


—— OO 


1$ 
000004 a$TKB,4 (SP) :: 
000004 #*C<177>,4(SP) ::GET RID OF JUNK IF ANY 
000023 4 (SP) ,#28 ':1$ 1T A CONTROL-S? 
By :;BRANCH IF NO 
astKs S:WAIT FOR A CHARACTER 
2$ ::LOOP UNTIL ITS THERE 
a$TKB,-(SP) 


#°C177, (SP) 
(SP)+,#21 
2$ 


SSF 


ee 
Ss 

mee FN — 

NOAOUNUEN 


(=) 
rTP or) 


TAC 
F NOT DISCARD IT 


8 1$ YES, RESUME 
000140 : 4(SP) #140 iS iT UPPER CASE? 
4 : BRANCH IF YES 
000175 4(SP) ,#175 3318 IT A_ SPECIAL CHAR? 
4$ sBRANCH IF YES 
000004 #40,4(SP) 3;MAKE IT UPPER CASE 
027312 000002 4$: | 3360 BACK TO USER 


peeeeerererererereerererereteeeeeeeeeeeeeeeeeeeeeeenereeeeeeeeee 


*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


> *CALL: 


$s 


sess 
sa 3 


x 


( 
t 
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( 
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( 
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( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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( 


ey et a a ce a et et et IN) ec ee ce ce ed ed ed ee ed et ed ed td ed = — 


Ne Ne Ne ee ee ee ee ee ee 
=—Mmrmn~ 


o 
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ROLIN 3; INPUT A STRING FROM THE TTY 
RETURN HERE : ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
3s TERMINATOR WILL BE A BYTE OF ALL 0°S 


et nt et 


ee ee ee ee eee ee ee ee 


027314 


¥ 


3,-(SP) 
027422 1 Vv @STTYIN,RS 
027432 : + Siemans 


—MmNO 


y pt Ne 
NOLS 


: F YES 
£:G0 READ ONE CHARACTER FROM THE TTY 
MO (SP)+, (R3) °:GET CHARACTER 
000177 : #177, (R3) ::18 17 A RUBOUT 
3$ ::SKIP IF NOT 
001202 : SQUES S: TYPE A °?° 
BR is [:CLEAR THE BUFFER AND LOOP 
027420 : (R3) 98 SSECHO THE CHARACTER 


027420 . 
000015 | aaa >: CHECK FOR ght 


Ce tl el te ed el ee ee ed 


ec ec ce ce ce ec ce ce ee ed ed ed ed et et ed 


— 
wwwewewwe wy we wee wee we ewe eee 
-—— OOO 


Sx= 
—~Mmr 
~~ OOO 


— =o ad —_ 
SSne=8e 
Suwruws 
RmOWo ss 
= I = WWIII O AIO 


177777 
001204 


gEEEs 


$3 ORE R3 

P),-(SP) :;ADJUST THE STACK AND PUT ADDRESS OF THE 
000004 000002 4(SP) ,2(SP) 33 FIRST ASCII] CHARACTER ON IT 
027422 MOV @STTYIN,4(SP) ae tune 


9$: 3:STORAGE FOR ASCII] CHAR. TO TYPE 


° ; 3 TERMINATOR 
STTYIN: ;sRESERVE 8 BYTES FOR TTY INPUT 
TROL “‘U" 


8. 
005015 000 SCNTLU: Zz. /*U/<15><12> :3CON 
006507 000012 SCNTLG: /*G/<15><12> :;CONTROL *'G’’ 
sae 020122 SMSWR: .ASCIZ <15><12>/SWR = / 


040 047040 0535505 SMNEW: .ASCIZ / NEW = / 
027462 000040 
~SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


Cl tl el tl tl te ed ed ee ed ee ed 
o 


oooo—— 
parr Sees 

~™ 

$ 


¥ 


PEt iii iii iiiiiiiiiiiiiiiiiiy) 
;*THIS ROUTINE 1S USED TO CHANGE A 16-B1T BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCI11) NUMBER AND TYPE IT. 

3 *STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


CALL: 
NUM ,-(SP) ;;NUMBER TO BE TYPED 
3;CALL FOR TYPEOUT 
3 3Ne1 s 6 FOR NUMBER OF DIGITS TO TYPE 


33M=1 0 
3: 1=TYPE LEADING ZEROS 
3; 0=SUPPRESS LEADING ZEROS 


7 *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
s*$TYPOS OR STYPOC 


7 *CALL: 
i* MOV NUM ,-(SP) 3;NUMBER TO BE TYPED 
;* PON 3:CALL FOR TYPEOUT 


3e 
= 11 attests HERE FOR TYPEOUT OF A 16 BIT NUMBER 
;*CALL: 


( 
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( 
( 
( 
( 
( 
( 
( 
( 
( 
2 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


ee ee er er Sl 
ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
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NUR ,-(SP) 7 NUMBER TO BE TYPED 
73CALL FOR TYPEOUT 


@(SP) ,-(SP) :PICKUP THE MODE 

1(SP) ,SOFILL 3;LOAD ZERO FILL SWITCH 

(SP) + , SOROD 3 NUMBER OF DIGITS TO TYPE 
3;ADJUST RETURN ADDRESS 


33SET THE ZERO FILL SWITCH 
23SET FOR SIX(6) DIGITS 
33ST "a ITERATION COUNT 


—_ 


—-oCo0o-—— ee 
wet et ot owt ad at a taba 
San S14 
o “SSFo ~~ 


; RS 

HIGET THE NUMBER OF DIGITS TO TYPE 

3; SUBTRACT IT FOR MAX. ALLOWED 
i IT FOR USE 

T THE ZERO FILL SWITCH 

mt THE INPUT NUMBER 


3 AR THE OUTPUT WORD 
$ FRO TATE MSB INTO *'C* 


260 DO ASB 
FORM THIS DIGIT 


3 


seo--3s3s 
SAZUSRE 
2 Sesasee 


: R 32GET LSB OF he; _P1GiT 
027712 stg Ay DIGIT? 


$ 
177770 4 | . :3GET RID OF JUNK 
i: SUPPRESS THIS 0? 
sBR IF YES 


SI DON'T SUPPRESS ANYMORE 0°S 
000060 3:MAKE THIS DIGIT ASCII] 
000040 : #* RS 33;MAKE ASCI1 IF NOT ALREADY 
027706 s:SAVE FOR TYP] 
7706 8$ 3:G0 TYPE THIS DIGIT 


02 
027710 :; COUNT BY 
:3BR IF MORE TO DO 


3 3 INSURE LAST DIGIT ISN'T A BLANK 
3360 I cca DIGIT 


; TORE R3 
000002 000004 ESET THE STACK FOR RETURNING 


RETURN 
8$: $ STORAGE FOR ASCII DIGIT 
INATOR 


: FOR TYPE ROUTINE 
SOCNT: .BYTE T ree ER 
SOFILL: “BYTE wiTC 
027712 SOMODE: .WORD sNUMBER OF DIGITS TO TYPE 
-SBTTL CONVERT BINARY TO DECIMAL’ AND TYPE ROUTINE 


ooooo -~w--— ¥ 
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et cs ce ce cr ee ec ee ec ec ed cd ce a ed ed ed ed ot ed ed 
Wwe wwe we we ww ww we we we we ew ew ww SN ww ww wee 
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= 


C 


iii titi iii iii iii iti ii iiiiiiiiy 
SeTHIS ROUTINE 1S USED TO CHANGE A eo BINARY NUMBER TO A 5-DIGIT 

3 *S1GNED DECIMAL (ASCII) NUMBER AND TYPE 17. DEPENDING ON WHETHER THE 
3 *NUMBER + POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
SBEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
pitched WITH SPACES. 


NUR ,-(SP) :PUT THE BINARY NUMBER ON THE STACK 
£60 TO THE ROUTINE 


Cl tl tl tl ed il 


OEE Eh at wt st St Ss Ss sf 


i i dh hh a hh he 


027714 STYPDS: 
RO,-(SP) +sPUSH RO ON STACK 
33PUSH R1 ON STACK 


eats 


Rs 

000001 #@*=,1(SP) 33 

18: RO :3ZERO THE CONSTANTS INDEX 

#SDBLK ,R3 :3SETUP THE OUTPUT POINTER 
a’ ,(R5)¢ 23SET THE FIRST CHARACTER TO A BLANK 
R 3;CLEAR THE BCD NUMBER 
SOTBL(RO) RI 33GET THE CONSTANT 
R1,R5 :3FORM THIS BCD DIGIT 


::BR 1 
:: INCREASE THE BCD DIGIT BY 1 


3;ADD BACK THE CONSTANT 
7:CHECK IF BCD 01G1T=0 
3zFALL THROUGH IF 0 
s:STILL DOING LEADING 0°S? 
+ 3BR IF YES 


=S=83S5 
SUN NUWUG NO PPT 


6$ BR IF NO 
177777 1(SP),-1(R3) ii VES=-$E1 THE SIGN 
6 #°0,R2 MAKE THE BCD DIGIT ASCII 
#° «Ro :3 IT A SPACE IF NOT ALREADY A DIGIT 
R2, (R3)¢ : PUT ER IN THE OUTPUT BUFFER 
(RO) + °3 NTING 
RO.4#10 


ee cnt Hd et 


—=—Oo-— 
oo 


DIGIT 
$ 
R5,R2 
6$ 3360 CHANGE TO ASCI1 
oa THE LSD THE FIRST NON-ZERO? 
177777 177776 =1(SP) ,-2(R3) $EVES=oSET THE SIGN FOR TYPING 
9 R3) NATOR 
(SP)+,R5 
(SP)+,R3 
(SP)+, ; 
(SP)+,R1 ‘POP STACK INTO RI 


gegeee? 
ss 


oooo---— 
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(SP)+,R0 ::POP STACK INTO RO 
SDBLK [INOW TYPE THE NUMBER 
(SP) ,4(SP) SSADJUST THE STACK 
(SP)+, (SP) 

RETURN TO USER 


os 
ad 
os 


SDTBL: 


a a at cet ot ot ot 
ee eee ee ee ee ee 


SDBLK: .BLKU 4 
~-SBTTL ERROR HANDLER ROUTINE 


& 


sc teeeeeeecerercereeeeeererererrrerrerereereeereraeeeneeeeeeeeeeees 


s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
s*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
s*AND GO TO SERRTYP ON ERROR 

s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

;*SW15=1 WAL 


INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 

N 3;ERROR=ERT AND N=ERROR ITEM NUMBER 


— NI 


i i i a hh hhh 


S:TEST FOR CHANGE IN SOFT-SUR 
: ON ERROR 

::SET THE ERROR FLAG 

7$ ::DON'T LET THE FLAG GO TO ZERO 
STSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
#81110. aSuR ::BELL ON ERROR? 

1$ =3NO = SKIP 

SBELL BELL 
SERTTL [COUNT THE NUMBER OF ERRORS 

(SP) ,SERRPC [:GET ADDRESS OF ERROR INSTRUCTION 


#2, SERRPC 
@SERRPC,SITEMB ;:STRIP AND SAVE THE ERROR ITEM CODE 
#81113, asur >:SKIP TYPEOUT IF SET 
208 3:SKIP TYPEOUTS 
(SP) ,#1002 Sr1F RETURN PC LESS THAN 1002 
BHI *:ERROR 1S ILLEGAL TRAP 
::PROCESS UNEXPECTED TRAP OR INTERRUPT 
MOV 4(SP),SERRPC  ;GET PC at TIME OF FALSE TRAP 
16$ :: HEADER 
$ERRPC,-(SP)  ::SAVE SERRPC FOR TYPEOUT 
7 7:60 TYPE--OCTAL ASCII(ALL DIGITS) 


#4, (SP) 3:GET FALSE TRAP VECTOR ADDR 
(SP) ,SERRPC 


SERRPC ,-(SP) 73SAVE SERRPC_FOR TYPEOUT 
3:60 TYPE--OCTAL ASCII(ALL DIGITS) 


- SCRLF 
- (SP)+,(SP)+ 3:POP FALSE TRAP VECTOR PCB&ADDR 
000040 : eASCIZ <200>'PC= ° 


e=2 
= 
Wie 

5 ad 
NMUIWO 


STSTNA, TSTNUM 
SERFLG 


~ oo 
SeK—8 
STN 
ss et ot 
o oo 
~Nm Wry 


s 
SYN NNN SFU SN 
Sss SS SS 


farts SeSe=e= 
NO =O =  “~V 
aati Ft ot 
enh et et 
— oy 
Ssxa 
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== 
rt a 
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118: -ASCIZ * UNEXPECTED TRAP i0 ° 


4 


_ 
So 
w 


0541 
04 


05 
2105 
020120 


SSS 
NESS 


Fe 


Su 
sSeQN~N Oe 


PC ,SERRTYP 3:60 TO USER ERROR ROUTINE 
SCRLF 


SERTE 
a 


SAPTENV ,SENV ¢ ;RUNNING IN APT MODE 

é + NO, SKIP APT ERROR REPORT 

A Fe SET ITEM NUMBER AS ERROR NUMBER 
ewe oSATYS REPORT FATAL ERROR TO APT 


SSSSSSS S 


wis 


eeeeeeees ooo 
Fee 
oe 
S= 
7 
~~ 
Wits 


38 


: B 228 : yt oy 
150520 2s: aSwR ON ERROR 
3$ :iSKIP } 4 CONT INUE 
ON ERROR! 


Test FOR CHANGE IN SOFT-SUR 
001000 3$: IT gyetee seam + Ae ERROR SWITCH SET? 


BR IF NO 
001110 SLPERR, (SP) 32:FUDGE RETURN FOR LOOPING 
001174 4$: + eal 3:CHMECK FOR AN ESCAPE ADDRESS 


:3BR IF NONE 
001174 - SESCAPE , (SP) 3FUDGE RETURN ADDRESS FOR ESCAPE 
021220 @SENDAD ,a#42 ¢sACT=-11 AUTO-ACCEPT? 
6$ :;BRANCH IF NO 


Seasee ess 
SF¥SRNSeN=S 
3o8 


w—ono 


—“N OMnonnrs 


SeEEEEEessy 
~ 


quae 
g ist eee 


6$: 
RTI RETURN 
LSBTTL ERROR MESSAGE TYPEOUT ROUTINE 


POT iiiiiiiiiiiiiiiiiiiiiiiis) 
TeTHIS ROUTINE USES THE “ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE WHICH 
s*ERROR 1S TO BE REPORTED. 117 THEN OBTAINS, FROM THE “ERROR TABLE’ (SERRTB), 
[*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYP - SCRLF 3:""CARRIAGE RETURN’ & "LINE FEED" 
RO,-(SP) 33 SAV 
::PICKUP THE ITEM INDEX 
9961 TERD.20 


F ITEM NUMBER IS oe JUST 
iit ype THE PC OF THE ERR 
SERRPC ,-(SP) :7SAVE SERRPC FOR TYPEOUT 
36h = ADDRESS 
TYPE“-OCTAL ASCIICALL DIGITS) 


ce 
: ADJUST THE pete SO THAT IT WILL 
33 WORK FOR THE ERROR TABLE 
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et et et IIIA at at et at et ts at rt et IN gl tt 0 ts kd a dd ee et 8 8 ded ce ed ed ed ed ed et ed 
et i i it it tet ee a hd ed hh A he hh a 


RO 
#SERRTB RO +3 FORM TABLE POINTER 
(RO)+,28 ;:PICKUP “ERROR MESSAGE" POINTER 
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0 3$ 


agate eae 


as 


- SCRLF 
(RO)+ 48 
5$ 


DATA HE 
0 TA HEADER’ POINTER GOES HERE 
»SCRLE S CARRIAGE, RETURN & “LINE FEED 
(RO) ,RO : PICKUP MATA TABLE™ POINTER 
7 360 TYPE THE DAT 
(SP)+ RO 3 RESTORE RO 
/SCRLE S:"CARRIAGE RETURN & “LINE FEED 
Te : RETURN 


@(RO)+,-(SP) 33SAVE @(RO)+ FOR TYPEOUT 
23:60 TYPE--OCTAL ASCII CALL DIGITS) 
i. s31$ THERE ANOTHER NUMBER? 


sBR IF NO 
8$ SI TYPE TWO(2) SPACES 
BR 7s 3;LOOP 
8$: . 33:TwO(2) SPACES 


-EVEN 
-SBTTL SCOPE HANDLER ROUTINE 


OSS titi iii iii iii iiiiiy 
SeTHIS ROUTINE CONTROLS THE pt ole OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD be TEST NUMBER(STS O THE DISPLAY REG. (DISPLAY<7:0>) 
3*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
3 *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
;*SW14=1 LOOP ON TEST 
INHIBIT ITERATIONS 
LOOP ON ERROR 
LOOP ON TEST IN SWR<7:0> 


;;SCOPE=10T 


Soooooooocecoeco 
SSSSSSSS 
VSSSSSTS 


= 


3 


ono 
—-SooOne 


lt i hh de he a 


& 


SSCOPE: 
;TEST FOR CHANGE IN SOFT-SWR 
GO TO ERROR ROUTINE IF RETURN be LESS THAN 1002 
:ZOTHERUASE CONTINUE 
001002 CMP (SP) ,#1002 yr gt Id TRAP OR INTERRRUPT 
BHI 1$ ;;ARE TRAPPED HERE VIA JOT 
030140 JAP SERROR 
040000 150272 1S: BIT #81714, aSuR 
YES IF Swidz1 


BNE SOVER 
:WHHAASTART OF CODE FOR THE XOR tésténsaann 
SXTSTR: BR 65 331F RUNNING ON THE “'XOR' TESTER CHANGE 
. +: THIS ANSTRUCTION® TO A "NOP’’ (NOP=240) 
000004 @PERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
030676 000004 MO #5$, a#ERRVEC ESET FOR TIMEOUT 


177060 an OUT_ON XOR? 
000004 (SP)+ ,@#ERRVEC i :RESTORE THE ERROR VECTOR 
SSVLAD :G0 TO THE NEXT 
: (SP)+,(SP)¢ TICLEAR THE STACK AFTER A TIME OUT 
000004 (SP)+,@#ERRVEC ;;RESTORE THE ERROR VECTOR 
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~~ 
—_ 
la 
mM 
Ww 


68: ;AMNNGEND OF CODE FOR THE xoR'iesTERc@MMe, ee EST 
000400 150224 BIT  #B1T08,aSWR —-; ;LOOP_ON SPEC. TEST? 


‘BR 
150216 001102 CAP aSun STSTNN 30M The RIGHT TEST?  SWR<7:0> 
001103 : SERFLG SIHAS AN ERROR OCCURRED? 
001115 001103 SERMAX, SERFLG ;3MUAK. ERRORS FOR THIS TEST OCCURRED? 


150166 #81109, asur :3LOOP ON. ERROR? 
001106 7$: m SLPERR,SLPADR [SET LOOP ADDRESS TO LAST SCOPE 


SERFLG 33ZERO THE ERROR FLAG 

STIMES 23Cl LEAR THE NUMBER af ITERATIONS TO MAKE 
1$ CAPE TO THE NEXT TEST 

#B1T11,aSuR $i INMIBIT.LTERAT 10NS? 


7B 
SPASS i31F FIRST PASS OF PROGRAM 
1$ INHIBIT ITERATIONS 
SICNT INCREMENT ITERATION COUNT 
STIMES ,SICNT 33 CHECK K THE NUMBER OF ITERATIONS MADE 
SOVER sBR IF MORE ITERATION REQUIRED 
3 :REINITIALIZE THE ITERATION COUNTER 
NUMBER OF ITERATIONS TO DO 


om——-0O—-0 00 
esesnsssese 
2 =~ 
SIN S 


32 
Src 
WWE vu 
Sx 


38 
3 
a ei te | 


 oalealieietiealielelieteaieatateatealteatetate 
Oo 
we 


ad at eh a dA at et ot 4 a a nt ts 
ee Ne eee ee ete le le es 


at-t-t-1 
WRN 


s 
> 


EEEEE 


#1 ,SICNT 
SAXCNT ,STIMES 
STSTNA 
STSTNM,STESTN 
(SP) ,SLPADR 
(SP) ,SLPERR 
SESCAPE 


Oe ed et et 
SSSz 
MNS 


ADDRESS 
ESCAPE FROM ERROR ADDRESS 


MO #1, SERMAX $s 1) ERROR ON NEXT TEST 
SOVER: STSTNR_QDISPLAY 3 ER 

HOV SLPADR, (SP) : FUDGE RE RETURN ADDRESS 
SMXCNT: 2000. + sMAX. MURBER OF ITERATIONS 
"SBTTL POWER DOWN AND UP ROUTINES 


fs UAAAAAAAAAASAAAAEAEAA AAAS EEKAEAAAAAAAAAAAAAAAEKAKEKKeeeeeeee 
“POWER DOWN ROUTINE 
000024 $PWRDN: MOV #SILLUP,@#PWRVEC ;;SET FOR FAST UP 
000026 MOV #340, asPURVEC+ e: :3PRIO: 7 
) H RO ON STACK 


oo 

— tot 
Ss8 
== 

—— 
SS°oxs 


Qwwwvwvuvvuuvuuvuuvuuuuuvuuw 
Ww 
™“ 
Nm 
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OS mh at rt rt ts rt a at ts et ts ts ot ws ot ot ot ot 


~SPSCse mr 
yu NN 
TY at at a et ee ar eh he! 


33;PUSH @SWR ON STACK 
SP ,SSAVR6 3:SAVE SP 
000024 MOV #SPWRUP ,2#PWRVEC ;;SET UP VECTOR 
72 3: HANG UP 


sterereereerrerreererererereerererereneeeeeeeeeeeeeKeReeeeeeneee 


POWER UP ROUTINE 


Soooooocooo 
a ed ed ed ed ed td ot ot 
NNOOOOOCOONN 


™m 


Soooooooooooeo 


PAPEL EAL LAE 
Oe ed ed ed ed ed eed ed ed 
et ek ek at et et et et ot 
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SFSENSERSSFERRS 
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031262 : St +f lane +2 SET FOR FAST DOWN 
1266 ROV SSAVR6,SP SP 


SSAVR6 SIWAIT LOOP FOR THE TTY 
SSAVR6 a" FOR THE INC 
1$ WORD 


BNE 
147720 (SP)+ ,@SuR 
(SP)+,R5 


oa 


Ft ant a el en at ae 
Ome a tt at ts LD LN ot 6 oe 
aot 


Cm De hh he hh 
oooocoococoo 


RO 33 STACK INTO RO 
031116 SSPURON @#PURVEC geet eg THE POWER DOWN VECTOR 
000340 9340 ,a#PURVEC+2 5 PR 
: REPORT THE POWER FAILURE 
PURASG sPOWER FAIL MESSAGE POINTER 
v (PC)+, (SP) ;:RESTART AT RESTRT 
SPWRAD: RESTRT 3 RESTART ADDRESS 


SILLUP: +3 THE POWER UP SEQUENCE WAS STARTED 
. 33 BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: 0 E 


oo— 
PRASERN 
FEVSaas 

NFO] 44 


—a a 
SPIRE ROSAS SS 


SSENSAERSSENS EN 


Le ed a et at at an at onl 


on 


: ;PUT THE SP HER 
042522 0521235 PWRMSG: .ASCIZ £15><12>/RESTARTED FROM POWER FAIL/ 
042524 020104 
046517 050040 
051105 
000114 


031320 
-EVEN 
-SBTTL TRAP DECODER 


II iti it iiiiiiiiiiiiiii ii) 
:eTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*G0 TO THAT ROUTINE. 


031324 STRAP: RO,-(SP) 7; SAVE_ RO 
MO 2(SP) ,RO + 3GET TRAP ADDRESS 
= (RO) sBACKUP BY 
(RO) ,RO 3 3GET RIGHT BYTE OF TRAP 
TION 4 INDEXING 
STRPAD(RO),RO 3; INDEX TO 
RO 3:60 TO ROUTINE 


3;THIS 1S USE TO HANDLE THE ‘'GETPRI*’ MACRO 
STRAP2: MOV (SP) ,-(SP) ;;MOVE THE PC DOWN 
000004 MOV 4(SP) ,2(SP) :;MOVE THE PSW DOWN 
RTI 7 RESTORE THE PSW 
-SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
7*BY THE “‘TRAP’’ INSTRUCTION. 


a ee tl te ee et ee ht ee i ee ee ee et te te i ed ee ee 


Oa et et et st tn tt et et et ot ot ot ot ot a ee f 
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* 
° 


031346 STRPAD: D STRAP2 

026060 4 3; CALL=TYPE TRAP 1(106401) TTY TYPEOUT ROUTINE 

027512 3; CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
027466 3; CALL=TYPOS TRAP*+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
027526 3:CALL=TYPON TRAP*#4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
027714 7 ;CALL=TYPDS TRAP*5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


026762 33 CALL=GTSUR TRAP+6(104406) GET SOFT-SUR SETTING 


026712 2 CALL=CKSUR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SUR 
2; CALL=ROCHR TRAP*10(104410) TTY TYPEIN CHARACTER ROUTINE 
¢CALL=ROLIN TRAP*11(104411) TTY TYPEIN STRING ROUTINE 

SROOCT ;;CALL=ROOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 

-SBTTL RANDOM NimBER GENERATOR ROUTINE 


ff SAAR AAAA AEH AAA AAA AAAS AAEEAETAERASAAAAAAAAAAKERAAEAAEAAAAAAAAEe 


s*THIS ROUTINE 1S A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
s*WITH A RANGE OF 0 TO 2(+33)-1. 


JSR PC, SRAND 3:CALL THE ROUTINE 
TURN 37 ;RETURN HERE THE RANDOM 
3 ;NUMBER WILL BE IN 
SLONUM 


3: SHINUA, 


~ 
Ot tt et at FW SO ewe 


ewww we www we www www www WWW YM YS YS YY YY ww ewe ww we 


RO,-(SP) 


oooooo 
ed ed ad ed ed 
w 


177771 


$3 


T RO LEFT AND 
tate CARRY INTO R1 AND 
; FOR DONE 
18 :FCONTINUE SHIFT LOOP 
031506 ;AD0 NUMBER TO _ x 129 
R1 ;  PROPOGATE CARR 


031504 $H . ADD NUMBER TO race x 129 
001057 | alae ;;ADD LOW CONSTAN 


3 :PROPOGATE CARAT 
047401 #47401,R1 33;ADD HIGH CONSTANT 
031506 0,$LONUM 7: SAVE RO 
031504 7: SAVE R1 
3:POP STACK INTO R2 
3;POP STACK INTO R1 
hale “RO fi* A np INTO RO 


T oe 
SHINUM: WORD 176543 
SLONUM: .WORD 23456 
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-SBTTL ASCII MESSAGES 


8444 | EMI: -ASCIZ = /POST-RESET CONDITIONS NOT MET IN CSR./ 


SERRSS 
PELLSE 
=R==SB 


ww 


ZREAD/WRITE BIT FAILURE IN CSR.% 


or 
£8 


SONwen 
NTT 


Soooooooooooo 
w 
— 
~ 
So 


WWAA ANA AN 


oo 
mUrW 
SSS=NN 
eed aed ee 
Onr— 


/BYTE ACCESS FAILURE IN CSR./ 


SFR 

ft — 
BRSR= 
fSoonfoo 
o—nw 


W=NOFOuwn 


/ERROR IN CONNECT PROCESS./ 


f 


051505 
051105 : /INTERUPT DETECTED WITH INTERUPT ENABLE CLEARED./ 


oo 
RAR 
Ne 
SR et et et ot 
Sy=svae 


050 
042 


FRSE 
oon™~s 
oon 
wNo— 


027104 


042114 : /COULD NOT CONNECT./ 
041440 
052103 


ite 


/ERROR IN RELEASE PROCESS./ 


ft Lt 


EM10: .ASCIZ /NO INTERUPT DETECTED./ 


EM11:  .ASCIZ /INTERUPT AT WRONG PRIORITY./ 


EM12: .ASCIZ /CONNECT CONDITION FAILURE./ 
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~ 


tat FL 
SRN 


2257 EM15: .ASCIZ /ERROR IN CONNECT FAILURE PROCESS./ 


N==3 
Non 
FNNEFO 

ess 

nw 

mh ee 

ae 

—nror =—— 

B=Ssus 


/ERROR IN RELEASE TEST WITHOUT BUSS MASTERSHIP./ 


oooooo 
ww 
3 


ooooocoeoc“eooco 
om NN 


Rorormurrrorrorre 


$58 


o 
3 
4 


So 

w 

™m 

x 

—> 
VOrnfon— 
COVUIWMOuvn~ 


/RELEASE CONDITIONS NOT MET./ 


WE @NOW— DB 


ooo 
SSNS 
os 
tees 
SSE=SNUS 
SSSPRESSSE 


/TAO BIT NOT SET./ 


So 
~m 


ZCOULDN'T READ/WRITE EXTERNAL DEVICE.2 


1 

7 

6 

0117 
047516 
7126 
2517 
6 

57 

0 


/RESET HOLD (HLD) DIDN'T DISABLE RESET./ 


/RESET (RST) DIDN'T WORK./ 


/THE OPERATION OF THE RESET-IN-NEUTRAL HAS CHANGED./ 


a 
rw 
mn 
¥SS 
=-—oSo w~—WwOoO 


rs 
CY) 


—OUwVoneVa NU 


$8 


PSESPSSE 
NONMES UNO NN 


RAreSsoaeSzrse 
FREALSESL FESS 
oor 
o—nw 


042507 


Ee ae ae 48 48 46 4 Ld 
—~ 
m 


Sooooooooo 
WADE LAE ts 


So 
~ 


eASCIZ / / 
044124 eASCII <200>/0=THIS MESSAGE / 
051505 


047117 -ASCI1 <200>/1=MONOPORT TEST/ 


3 
$33 
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2268 032644 ot 046125 eASCI] <200>/2=MULTIPORT TEST/ 


oo 
o 

So 
ww 


2269 eASCIZ <200>/3=MANUAL INTERVENTION TEST/ 


g 


—MN O-——CoNn—SCco 


So 
——NWN NN OUNI ee 


JERROR TEST# SHOULD WAS FROM/<200> 


/PC BE/ 
JERROR TEST# WROTE READ DEVICE ADDRESS/<200> 


— 


/PC/ 
/ERROR TEST# BITS FAILING RESET DEVICE ADDRESS/<200> 


wr 


05 
05 
05 


SEFFLSSS 


/PC/ 
/ERROR TEST# RESET READ DEVICE ADDRESS/<200> 


RERAK 


J 
wm 


051505 
044502 -ASCIZ /PC BITS/ 


—_ 


ee yy . i=] 


-EVEN 
ool hee : SERRPC, TSTNUM,GOOD ,BAD ,BADA,0 
001570 : SERRPC,TSTNUM,DEVRW,BAD ,DEVAD ,0 
000000 
001126 : SERRPC, TSTNUM,BAD ,DEVAD ,0 

~END 


Oooooosoe 
rrr 


a ee ed et et i ee 
Cooone 
Re 


SSSSSSasFzr 


: 
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ABASE = 177420 
000000 


s 
— 
—— 
~m 


ROUT] 002454 
ROUT 2466 


Esseniats: 


g 
3 


Sof 


a 


Sgeisceiieles 
gogroscapecaneeaes 


14 
07 
12 
54 


™~ 
OFfrmeNrNoOMW 
SoucosoNNocces 
SSPRNLSNSSSSae 
FSrenoenoe noo 


Scores 
$333 
sist 


s 
ee 


04412 
024334 
AUSWR = 000000 000001 
AVECTI= 160350 
AVECT2= 000000 
BAD = 001126 


a ed et et et et 
SN NNN NN 
POPIPIMINPIPMPIPOPOPEPY 


es 
ess 


ROUTE 002552 
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TYPOC = 104402 $0007 
TYPON = 104404 $00u8 
TYPOS = 104405 
vECO 001554 


: 


SSVLAD ones 


state 

SS8s85 
evsssss 

CUSFSsSestsscs 
SSEFSFSS 


rer 
oo 


288 
No 


ae 
S$ 

SSSSSSsSssss 

come cts nee ee cae ee a cet at oP ee 


= s 
sor 
ooooo 
Mrrr 
S8ERECR 
We 
MmMNROPR 
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o 

ar 
SSSSSSSSS 
et ee ee etd ot et a oo 


SSERSFERE 


RNSS 
Mr 
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SS 


ONG FNONMCOUWw 
rr 
&onm 
For 


s 

a 

~ 

sss 
ted et ed ed 


— 

hp ab me ot eo 
Sh 9 bol eed 

oo 

aves 

ete tetes 

muw 

Wes Fonrw 


st 


tt at a ys oe yy 


tt ot ot 
NRNWUN—— 
SxuN== 
geessss<eee 
== MPININIM SM 
——§ OUI NES $ 
NOK Ff Fw 
Ss& 
oe 
_ 
SFE 
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Nu—~n~ 
= 
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00 
00 
0 

00 
00 
0 

00 
00 
00 
00 
00 
02 
00 
00 
00 


eet ee ae ed 
WD = ot 
COmnrmnrvuw 
NrNOfOoOUOo 


WOWWWue Larmor 

wt yy 
SSK=os 
MNONCO 


SSSSLESLLS 
SO OS SS SO SH - HOH 
FEES 


$$GET4= 000000 
SOFILL 027711 
$40CAT 000000 
= 033240 
= 001000 


sssssssssssess 


“$x 


oo 
oo 
oooeo 
SOwno 


SLPADR 





